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まえ が き 


本 書 は 。『 マ シン 語 プ ログ ラミ ング 入門 』, 『 丈 1 り リブ ファ 
レン ス ノ ッ ト 』 に 続く 第 3 弾 と し て , また 本 シリ ー ズ の 
最終 作 と し て , これ ら 既 刊 2 若 の アン ケー ト 葉 書 の な か 
で , も っ と も 要望 の 多かっ た アイ テム を 取り 上 げ ま し た 。 
内 容 は 。 ゲー ム 制 作 の た め の キ ャ ラク タ ・ パ ター ン 表 示 , 
CIRCLE や LINE な どの グラ フィ ックス , 音声 合 成 を 含む 
PSG 活 用 法 。 開発 ツー ル と し て の コン パイ ラ で す 。 

これ ら は も ちろ ん , すべ て マシ ン 語 で 記述 し ます が , 
特に アル ゴリ ズム が 重要 な グラ フィ ックス に つい て は は , 
BASIC で も 記述 し 。 アル ゴリ ズム を 明確 に し て いま す 。 

コン パイ ラ は , オブ ジェ クト 効率 を 重視 し た も の で , 
X1 の よう に PCG な どの 機能 が 充実 し て いる マン シン で は , 
リア ル タ イ ム ・ ゲ ー ム の 記述 に も 十分 使え ます 。 

BASIC と マシ ン 語 以外 の 言語 と し て , 初め て 使う 方 に 
は 多少 と ま ど い が ある か も し れ ま せん が , ロー カル 変数 
が 使え る 点 や 豊富 な 制御 文 な どの 構造 化 言語 の 雰囲気 を 
味わっ て くだ さい 。 


1985 年 8 月 著者 


一 本 書 を 読む 前 に 麗 


本 書 で 使用 し た アセ ン ブ ラ は , 由 ア スキ ー の 『DUAD- 
X14。 で す 。 し か し , 本 シリ ー ズ の ! マ シン 語 プ ログ ラミ ン 
グ 入 門 」 に 掲載 され た アセ ンプ ブラ を 使っ て いる 方 で も ア 
セン ブル で きる よう に 配慮 し て いる の で 間 題 は な いで し 
* 人 サ 。 

1 章 と 2 草 で は , グラ フィ ッ ク RAM を 使い ます が , 両 
アセ ンプ ブラ と も , グラ フィ ッ ク 表 示 を 禁止 し て いま す 。 
で すか ら , プロ グラ ム を 実行 する と き は BASIC か ら 実 行 
する か , つぎ の プロ グラ ム を 実行 し て パレ ッ ト を 初期 設 
定 し て か ら 行 っ て くだ さい 。 






bc, 1000h _ : パレ ッ ト B 
a, 0aah 

(cC), a 

b ) パレット R 
a, Occh 

(c), a 

b ・ フ マレット G 
a, OfOh 


(c), a 





まだ , グフ ラフ フィック の モー ド を 変え る と き は , “width 
80”(098ch) また は “width 40' (0998h) を それ ぞ れ コー ル 
し て くだ さい 。 

な お , X1 turbo も 含む 全 X1 シリ ー ズ に 対応 する た め 
BASIC は CZ-8FB01」 と!CZ-8CB01」 を 対象 と し ます 。 
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キャ ラク タ ・ パ ター ン の 表示 は ゲー ム を つく る うえ ぇ で 重要 
な 部 分 で す 。 本編 で は , 文字 や PCC お な よび グラ フィ ッ ク ・ 
ッ パ ター ン の 表示 方 法 に つい て 解説 し て いき ます 。 


に に 1 テキ 人 ト 画 奏 と 小 リ ビュ ト 

テキ スト 画面 に は , ROM (キャ ラク タ ・ ジ ェ ネ レー タ 
KOM) に 内 臓 さ れ て いる 文字 フォ ント や PCG (Programa. 
ble Character Generator) に 定義 され た パタ ー ン が 表示 
され ます 。 こ の 画面 に は , 専用 の VRAM (テキ スト 
VKAM) が 1 上 プ 0 ポ ー ト の 3000H 番 地 か ら 6 37FFH 番地 
ま て に 割り 当て られ て いて , 画面 の 位置 に 対応 する 番地 に . 
ASCII コー ド を 書き 込め ば その コー ド の 文字 が 表示 きれ ま 
す 。 まだ, この 文字 に 対し て , 1 文字 単位 に 。 キャ ラク タ ・ 
ジェ ネ レ ー タ ROM, PCG の 選択 。 文字 の サイ ズ , 反転 , 
点滅 。 色 指 定 を する アト リ ビ ュ ー ト VRAM が 別に 設け られ 
て いま す 。 

A 1 に は , 表示 モー ド が 2 種類 (4 0X25, 80x2 
5S) あり , 表示 位置 と IT プ 0 アド レス は 図 1-1 の よ うに 対応 
し て いま す 。 図 の カッ コ 内 の 数 値 は アト リ ビ ュ ー ト の アド ン 
ス で す 。 

アトリビュート ・ ア ドレ ス は , テキ スト ・ ア ドレ スー1000 
HH で 求め られ ます が , これ は た と えば bc レジ スタ が テキ ス 
ト ・ ア ドレ ス を 示し て いる 場合 , アド レス の 上 位 8 ビッ ト が 
倍 納 る れ て いる b レ ジス タ の 第 4 ビッ ト を クリ ア す る こと で 
間 単 に 求め る こと が で きま す 。 









例 ld bc, nn (nn は , テキ スト ・ ア ドレ ス ) 
reS 4 b 







|-| 基 笠 編 


< 丁 較 了 テキ スト 画面 の 表示 位置 と アト リピ ビュ ー ト 


3000 00 ' 3400 | 3401 27 
(2000)|(2001)| - |(2400) (2401)| 6) |(2427) 

3028 38 3428 | 3429 344E 344F、 
(2029) 1 - 衝 昌 ] | (244E)|(244F) 


33CO_ 1 1 本 菩 L 1 1 1 
(23C0)|(23CI) |(23E6) (23E7) (27C0)| (27CI) (27E6)|(27E7) 
40 字 X25 行 モー ト , ペー ジ 0 _40 字 X25 行 モー トド, ペー ジ | 

3000| 3001 _30 304F_ 

ーー 0 _ー |(204E)|(2( ) 

50 ,208E 308 
( (2051) (209E)|(209F ) 


時 
































ーー X ーー 200 


アト リ ビ ュ ー ト は 。 アトリビュート VRAM に 1 バイ ト の 
デー タ を 書き 込ん で 指定 し ます 。 ア トリ ビュ ー ト の 人 各 ビ ピッ ト 
は 図 1-2 の よう な 意味 が あり ます 。 

表示 モー ド 別 に テキ スト 画面 の アド レス は , つぎ の 式 で 計 
算 で きま す 。 

@40 文 字 X25 行 (0 ペー ジ ) 
アド レス =&H3000 圭 XX 座標 填 Y 座 標 X40 


@40 文 字 X25 行 (1 ペー ジ ) 


アド レス =&H3400 寺 XX 座標 十 Y 座 標 メ 40 


@ 580 文字 X25 行 
ア M 所 HHS000 文 度 栖 す て 隊 欄 0 





リス ト 1-1 は , 上 記 の 式 の アモン ブル ・ リス ト で て す 。 
リス ト 1-2 は , 実際 に 文字 を 表示 する プロ グラ ム で す 。 
の プロ グラ ム は , "xpos' に X 座 標 , ypos' に Y 座 標 , 1etter' 


に ASCII コード, code に アデ トリビュー ト ・ ユ コー ド を 入れ て 
コー ル す る も の で す 。 こ こ で は 例 と し て PCG の ASCII ュ 
ー ド 41H に あたる 文字 を 画面 左上 に 表示 し , さら に , その 
石 に ブ プ トリビュー トド *・ コ ー ド を 要 ん て A 上 表 寺 し て いま す 。 


アト リピ ュー ト の ビッ ト 内 容 








説 明 
キャ ラク タク の 色 を 指定 し ます 。 カラ ー 6 色 の 表示 が 可能 






ネ 準 文字 モー ド (CG ROW) | 
ユー ザー 雪 字 モー ド (PCG7) 







mL で rm 





PR ー マ ル 文字 
| 垂直 2 倍 文 字 
水平 2 倍 文 字 
| 垂直 ・ 水 平 2 倍 文字 










1 
の 
3 
は 
のり 
6 
9 
け 


C99W 


C990 
C993 
C996 
C9098 
C9 り A 
C99D 
C00E 
C99F 
Cg1 1 
C9 1 5 
C916 


219039 
3A1ECM 
FEW0 
2897 

り 12890 
99 

3D 
28FC 
ED5B1DCW 
19 

DI 


C917 4D 


CI18 
CM1C 


Cg1D 


Cg1E 


C91F 


ED431FC@ 
C9 


り 
り W 





C990 


C990 


C993 
Cg96 
C998 
C じ 9 
C ひ 9D 
CggF 


Cg11 
Cg 1 2 
C915 
C917 
C919 
C91C 
C91E 
C り 20 


CZ2 1 
C924 
C027 
C929 
C92B 
C92E 
C92F 
C930 
C932 
C936 


CD21C9 


3A3 し CD 
ED79 
CBAW 
3A3DCM 
ED7/9 
CBE@ 


93 
3A3CCW 
ED79 
CBA0 
3A3ECW 
ED79 
CBE9 
C9 


219039 
3A3BCW 
FE009 
2897 

9 り 12890 
99 

3D 

28FC 
ED5B3ACW 
9 


10OP: 


SK1iP・ 


XPOS ・ 
yPOS・ 


」 
addreSsS: 


に 


tadr: 


10OP・: 


SK1P: 


ーーー きら て 


OT9 


1d 
1d 
CP 
JF 
1d 
add 
deC 
まま 
1d 
add 
1d 
1d 


Fet 


defb 
defb 


def5 


|-| 基礎 編 


addYeSS -ー- 
り C90909H 
hl1 ,39909H *BaSe addreSsS5 Of text ra 四 
a、(yPOS }) *y POSitionm 1 3a 
り *y=M ? 
Z ァ 。SK1p If y=9 then SKip 
bc ,28H *X COlOme 1n bC (49) 
hl , DC 
a 
Z .1OOP 
de , (XPOS } ixX POSition in de 
hl ,de 
b,h 
G。 1 AddreS5 1m DC 


(addreSS ) , bC 


2 


ニ -- Print TOuU も ime (PCG) -ーー 


0T 


Ca1 1 


Print routine (addresS of text ra 枯 1m DC) 


1d 
Out 
TeS 
1d 
Out 
Set 


1 nC 
1d 
Out 
TeS 
1d 
Out 
St 
et 


Calculate addresS Of teXt Ya 因 


1d 
1d 
CP 
・ 
1d 
add 
deC 
JT 
1d 
add 


9C999H 


tadr ・AddreS5 of text ram im bC 


* 衝 SCii Code Of letter in 8a 
Pr 1 も t | 
Addres5 of attribute Yam 


Code of attribute 


a,(letter ) 
(C)。a 

4.b 

a,( COde ) 
(C) .a 

4 ,b 


bC ・bC=bC+ 1 
a。( etter } 

(C) 。a 

4.b 

a、(COde+ 1 ) 

(C) .a 

4。b 


h1 ,3999H BaSsSe addreS5 Of teXt Ya 邊 
a, (ypPOS ) ijy POSition in a 

7 *y= 

Z,SK1iP 1f -y=9 then SKiP 

bC,28H iX CO1Ome in bC 4) 

hl 。bC 

3 

Z。 1OOP 

de , (XPOS ) iX POSitiOn in de 

hl ,de 


ea 取 4 





リス メス トコ 12 
4 


C937 44 
41 C938 4D 
42 C939 C9 
43 


44 C93A 99 
45 C93B 99 
46 
47 C93C 4] 
48 


49 C93D 27 
So9 C93E 97 


0 江 

1d b,h 
1d まま iAddresS jn bc 
ret 

XPOS : defb り 

YPOS : defb 9 

letter: defb 41H 

code: defb 99199111B 27h(nOrmal ,ramCg,white ) 
defb 99999111B 9/h(nOormmal ,rOmC9d。white) 


に に 2 グラ フィ ツク 画 面 

グラ フィ ッ ク 画 面 に は , 専用 の VRAM が 1I/O ポ ー ト 
4000 昌 番地 か ら FFFFH 番 地 ま で に 割り 当て られ て いま 
す 。 構成 は 図 1.3 の と お なり で す 。 

BLUE の アド レス に 4000H を 加え た 値 が RED の アド ン 
ス に な り , さら に , RED の アド レス に , 4000 HH を 加え た 値 
が 。 GRKEEN の アド レス に な り ま す 。 

画面 の キャ ラク タ 座 標 か ら , グラ フィ ッ ク RAM の アド 
レス を 求め る ブロ グラ ム が リス ト 1-3 で す 。 "xpos' に XX 座 
標 , ypos に Y 座 標 を 入れ て コー ル し ます 。 

グフ ラフ フィック ・ ア ドレ ス は , すべ て 計算 で 求め て も よい の 
で す が , この 方 法 は 後 草 に ゆず る と し て , ここ で は , 画面 の 
座標 を あら か じ め デ ー タ と し て 持つ こと で 処理 し ます 。 これ 
は 特に , 高速 に グラ フィ ッ ク ・ パ ター ン を 動か し た い 場 合 な 
と に 有効 で す 。 

リス ト 1-4 は , 16 ドッ ト X16 ドット の グラ フィ ッ ク ・ パ タ 
ー ン を 表示 する プロ グラ ム で す 。 


|-| 基礎 編 


グラ フィ ッ ク VRAM(BLUE) ア ドレ ス と 表示 位置 と の 関係 





旨 、 
4027 IN 






8 ドット 

ヒ 』 4 昌和 は 
M 7800 | 7827 [| 
| 405E トト 





画面 1(BLUE ) 


200 ド ッ ト 
ペー ジ 0 8 ドッ ト 

画面 2 (BLUE) 

200 ド ッ ト 画面 2(BLUE/ 


| 47E7 
| 7FE7 」 


|_7Fco | 





(a) 320X200 ド ッ ト 画 面 (2 画面 ) 
Mer 5 : 


200 ドッ ト 


1 
2 
さ 
4 
っ 
6 
ア 
8 
り 


19 
1 1 
1 2 


1 4 
15 
16 
17 
18 
1 9 
20 


21 


23 
24 
4 


C999 


C990 
C093 
C996 
C99/ 
C998 
C909 
CA 
C99B 
C99E 
C99F 
C912 
C913 
C916 


C917 
C91B 
C91F 
C923 
C027 
C92B 
C92F 
C033 
C937 
C93B 
C93D 
C041 
C945 


C949 
C94B 








9117C9 
2A4BCW 
29 
99 
り E 
23 
56 
2A49CM 


99 り 92800 
o9997/8909 
A999C8W0W 
F9991891 
499168MI 
9991B8MW 1 
E09109802 
39925892 
89092A892 
D992 

F89220903 
4893793 
9893C993 


り 909 
9000 


画面 | (BLUE) 





| er ] 


8 ドット 





(b) 640X200 ド ッ ト 画 面 ( 1 画面 ) 


table: 


XPOS : 
yPOS・ 


ーーー 泊 OOGT も BS === 


0T 可 


1d 
1d 
add 
add 
1d 
1 TnC 
1d 
1d 
add 
1d 
add 
1d 
ret 


detw 


defw 


defw 


defw 
defw 


り C り 90H 


DC,table 


hl , (ypOS ) 


hl , hl 
hl ,bC 
e, (hl) 
h 1 
d、(hl) 


hl , (XPBOS ) 


hl .de 
de , 49909H 
h 1 < dE 


(9D909H ) .h] 


sV POS1ition/8 


sX POS1t1iOn/8 


baSe addreSsS Of VvramW (blue) 
addreSs5 
SaVe addresS to d 上 99h 


り 9.49.89,129,.169.299.249,289.329.369 


49 り 9.44 り 、489.529、569,699.649,689,729 


7509、6809.849.889,.929、969 





ーー 


kl う テー デーーーー 
呈 呈 避 呈 コ OCT の ら の 


トウ トウ 「 ウ ウト ウロ 
_ OO (つり 


f 一 還 避 思 


Co (の 
CT 


CO (つら (の (の 
らら 史 の 


ER た に いら に 
MCO ト ウデ の 


45 


/ ル レツ ダケ 


C990 


と 990 
C993 
C994 
Cg9S 
Cg997 
C99A 
C90B 
C99C 
C99D 


、C99E 


C91 1 
Cg 1 2 
Cg14 
Cg15 


C916 
C919 
CM1B 


語 % 5L 


Cg1D 
C91E 
C92 1 
C922 
C923 
C926 
Cg27 


し 9 2 


Cg2B 
Cg2D 
C92E 
C930 
Cg31 


C932 上 


C934 
C935 
C936 
C938 
C939 
C93A 
C93B 
C93C 
C93F 
C949 
C94 1 
C942 
Cg43 
C944 
C945 
C947 
C948 
C94B 
C64C 
C94E 
C94F 
C959 


C953 


C954 
CgS56 
C959 
C95SC 
CSD 
C95E 
C95F 
C969 
C963 
C064 


SA6CC9 
87 

6F 
2699 
116DC9 
19 

4E 

23 

46 
2A6ACM 
99 
CBF 4 
4 

4D 


219FCW 
3E93 


FECM 
D267CW 
219940 
99 

3 

4D 

E1 
111900 
19 
C31CC9 


1OOPD1 : 


100P2 


10OOP3: 


td: 


GFTafiC patterm PF1nt TOutine 


0T 


Calculate addres5 Of Vra 


1d 
add 
1d 
1d 
1d 


display 


1d 
1d 
Pu5sh 
Push 
PuSh 
1d 
add 
EX 
1d 
add 
1 d 


9 り C999H 


hl , (XPOS ) 
hl , bc 

6,h 

b,h 

2。# 


TOUtime 。 ーーーー 


hl,pdata 
a,3 

af 

bc 

hl 
de,9919H 
hl ,de 
de,hl 

hl ,28H 
hl , bC 

( td+1 ) ,h1 
hl 


a,2 

af 

a,8 

af 

a. (hl ) 
(C〕)。 る 8 

bC 
a,(de) 
(C}) 。a 

bC 

hl 

de 

hl 

hl ,.9899H 
hl , bc 
bh 

CC 。』 

hl 

af 

a 

nZ , 1OOP3 
af 

bC . 999gH 
a 

TnZ , 1OOP2 
bC 

hl 

hl , (td+1 ) 
ah 

9C9H 
nC,quit 
hl , 4999H 
hl ,bC 
b,h 

ゃ ! 

hl 
de,10H 
hl ,de 
1oop 1 


|-| 基礎 編 


xy POSition / 8 Im a 
DOuble indexX 
iMake index (8bit) in hl 
addresS Of table in de 
・Table+index ini hl 

Get 15b im C 


・Get 大 SD in b 
XX POS1tiOn / 8 in hl 


Base addreSs5 Of Vram 串 (blUe) 


Addres5 Of pattern data in hl 
Set COunter 

Save COuriter 

i Save addre5s5 Of Vra 四 

iSave addres5 of pattern data 
iPdata+16 in de 

ihl+16 in hl 


ihl+X CO1Ome in hl 


Set COunter 

SaVe COUIter 

5et COunter 

i Save COUter 

iPatternm data in a 

Pr int 

ImCTemant addres5 Of Va 
iPattern data i a 


iDeCcremant address Of 
InCYe 串 ant addre5s5 
ImnCYemmant addreSs5 


Va 前 「 
Of pattern data 
of pattern data 


ibC+899H (1] 11ne). 


RelOad COunter 
iDeCTe 凍 Eht COunter 
If a<>9 then 1OOP3 
Reload Counter 
Decremant COunter 


Reload addreSsS Of Vra 剖 


s 15 VTa 箇 Fee ? 
>:]† reen then quit 


2o > の 部 


1O 


リス ト |-4 





8/ 


88 
89 
99 
91 
92 
93 


94 
95 


96 
97 
98 


99 
1909 


191 
192 
193 


CM67 
C968 
Cg69 


し 96A 
C96C 


C95D 
Cg 7/ 1 
C975 
C979 
C97D 
C98 1 
C985 
C989 
C98D 
C991 
C993 
C997 
C99B 


C99F 
じ 9Ad 
CA7 
C じ 9AB 
CAF 
C9B3d 
C9B7 
CBB 


CgBF 
CWCd 
C9C7 
C9CB 
C9CF 
C9D3 
C9D7 
CgDB 


CDF 
C9Ed 
C9E7 
CEB 
CMEF 
C9Fd 
C9F7 
CgFB 


E1 
FI 
C9 


9090928090 
っ S99978909 
A909C899 
F9991801 
49916891 
9991B80 1 
E9919892 
J9925802 
G992A802 
D092 

F8922903 
480937993 
9893C じ 93 


999A3F3F 
3F3D3D3F 
3F3C3C3F 
3F3F3F99 
99A9FCFC 
FCBCBCFC 
FC3C3CFC 
FCFCFC99 


9730966CE 
CE4C9C9E 
46DBDB809 
9990999F9 
E99C6673 
73323979 
62DBDB9 1 
り 9999909F 


973F66CE 
CE4C9CVE 
46C3C389 
999999F8 
E9FC6673 
73323979 
62C3C39 1 
9999991F 


つづ ブ づき 


可 U1t: 


XPOS ・ 
YPO5・ 


table: 


Pdata: 


POP 
POP 
Fet 


defw 
defb 


defw 


defw 


defw 


defb 
defb 
defb 
defb 


defb 


defb 
defb 
defb 


defb 
defb 
defb 
defb 


hl 
af 
W xsxX DO51tiOoOn 
Mg *V PO5SItiOn 


0.49、89、129.169.299.249.289.320.369 


499.449.489.529、569.699.649.689.729 


769.899.849.889.929.969 


JFH.3CH 3CH , 3FH, 3FH , 3FH , 3FH , 99H 
99H,9A9H,9FCH,9FCH, 9FCH . 9BCH , 9BCH , 9FCH 


9FCH, 3CH , 3CH , 9FCH , 9FCH , 9FCH , 9FCH 、 99H 


97H.39H, 66H,9CEH , 9CEH , 4CH , 9CH , 9EH Ted 
46H. 9DBH , 9DBH , 89H, 99H.99H, 99H.,9F9H 
9E9H,9CH,66H,73H、73H、32H, 39H,79H 


62ZH, 9DBH,9DBH,91H,99H.99H,99H,9FH 


97H.3FH, 66H, 9CEH , 9CEH, 4CH , 9CH 、 9EH ・drTeen 
46H, 9C3H , 9C3H , 89H, 99H, 99H,99H.9F8H 
9E0H.9FCH,66H,73H,73H, 32H , 39H , 79H 


62H,9C3H,9C3H,91H,.99H,99H,99H、1FH 


1-2 パタ ー ン の 移動 


パ マ ー ン の 物 動 


ター ン の 移動 は , いわ ゆる アニ メー ショ ン の 原理 と 同じ 
で , 連続 的 に すこ し ずっ 違う 形 。 また は , ずら し た だ 形 を 表示 
し て いけ ば よい の で す 。 

現在 表示 し て いる パタ ー ン を 消し て , 違う 形 あ る い は 他 の 
位置 に パタ ー ン を 表示 する と いう こと を 繰り 返す わけ で す 。 
また 。 パ ター ン を 消す に は , 0 を VRAM に 書き 込め ば よい 
の で す が , 後に 述べ る 背景 と の 重ね 合わ せ の 間 題 6 も ある の 
で , 一 概 に は いえ ませ ん 。 


1-2-1 キー 入力 
X 1 に は , いく つか キー デー タ を 読む 方 法 が あり ます が , 


ここ で は , 1I プ 0 ポー ト の 1900 H を 読む と いう 最も 間 単 な 





ld bc, 1900H 


in a,(c) : a レ ジス タ に 押さ る れ だ キー の 
ASC11 コ ー ド が か 





な お , X 1 では, 同時 に 2 つ 以 上 の キー を 判断 で き な い だ 
め (X 1 turbo は 別 ),、 ゲー ム な ど で , ミサ イル を 打ち な が 
6 移動 する と いっ た こと は で きま せん 。 


]-2-2 基本 By 税 動 


リス ト 1-5 は 最も 基本 的 な パタ ー ン の 移動 プロ グラ ム 例 で 
す 。 こ れ は , 2,。 4 6, 8 キー に ょ より , 16X10 ドッ ト の 
パタ ー ン を 縦横 8 ドット 単位 で 動か す も の で す 。 ま だ, * キ 
ー を 押す と シス テム に 戻っ て きま す 。 

移動 で きる か どう か は , 320X200 ド ッ ト の 画面 を 縦 禁 8 


ドッ ト 単 位 で 分 割 し て 考え て いる の で , 縦 は 24, 横 は 39 が 
最大 値 で あり , 更新 し た XX 座 標 , Y 座 標 が 画面 の 範囲 を 越え 
て いな いか を チェ ッ ク し て 判断 し ます 。 も し , 越え て いな け 
れ ば , 現在 , 表示 し て いる パタ ー ン を 消去 し て , 新しい 位置 





に パタ ー ン を 表示 し ます 。 

] % 

2 1 ーーー Pattern mOVe ーーー 

3 1 

4 C999 OY9 9C990H 

5 5 

5 C999 919919 KeVy: 1d bC , 19909H DC=1/O PBOrFt addr'esS 
7 C993 ED78 1n る 。《 で C}) det Key (a=a5SCii CoOde ) 
8 6 

9 C995 FE32 CP W' 信人 

19 C997 CAIFC@ JP Z ,dOwn if a=2 then down 
11 C99A FE34 CP 8 

12 C99C CA34C9 JP Z,left if a=4 then left 
13 C99F FE36 CD '6 位 ・ 

14 C911 CA48C9 JP Z,Fight if a=6 then right 
15 C914 FE38 CD '8 電 

16 C916 CA5DC9 JP Z , UP iif a=8 thehi up 
17 C919 FE2A CP に 

18 CIB C8 Tet Z iFetUYn 【tO systEem 
19 C91C Cd399C9 JP Key 
2 1 
21 C91F 3A26C1 down: 1d 3 .(YBPBOS ) ・y POSition jn a 
22 Cg22 FE17 CD 23 *y=23 9 
23 C924 D209C@g JP nhC,Key if y>23 then key 
24 C927 CD88C9 Cal 1 ETYaS6e ipattern eraSe 

25 C92A 3C 1 nC a ・y=y+ 1 
26 C92B 3226C1 1d ( ypPO5 ) , a SaVe \ POSition to a 
27 C92E CDCDC@W Ca1 1 diSP Pattern diSsplay 
28 C931 C399Cg JP Key 
29 * 
3 C934 3A24C1 1eft: 1d  、( XPOS }) iX POSition in a 
3] C937 B7 OY a X= 9? 
32 C938 CA99CW JP Z。Key 1f x=g then key 
33 し CM3B CDB8CM9 Cal 1 ETa56e iPatterh eraSe 
34 C93E 3D deC a 1 X=Xー] 
35 C93F 3224C1 1d ( XPOS ) , a ia 1 (XPDOS ) 
36 C942 CDCDCW Cal 1 diSp 
37 C945 C399C9 JP Key 
38 1 
39 C948 3A24C1 Pight: 1』1q a, (XPOS ) iX POSition in a 
4 C94B FE26 CD 38 iX=38 ? 

41 C94D D299C9 JP nC, Key 1f X>38 then key 
42 C959 CD88C9 Ca1l 1 eraSe pattern era5e 

43 C953 3C 1 nC a 1 X=X+ 1] 

44 C954 3224C1 1d ( xPOS ) , a 

45 C957 CDCDC9 Cal 1 diSPp 
46 Cg5A C399Cg JP Key 

47 5 

48 Cg5D 3A26C1 UD: 1d a,(yPOS ) iy POSition in a 
49 C969 B7 Or a siy=9 ? 
59 CO961 CA99C9 JP Z,Key i1f y=9 then key 
51 CW64 CD88C9 Cal1 erTaSse iPattern erase 
S2 C967 3D deC. は ? ツ = ミ Yー1 
53 C968 3226C1 1d (ypPOS ) .a 
54 C96B CDCDC9 Cal1 1 diSp 
55 C96E C399CW JP Key 
56 5 
57 C971 3A26C1 adr: 1d a,(yPOS ) 
58 C974 87 add a, 3 
59 C975 6F 1d 1 ,a 
69 C976 2699 1d h,9 
51 C978 1127C1 1d de,table 


012 《 





リス ト 1-5 


C97B 
C07C 
C97D 
C07E 


し 全 / ド 。 
_C982 
CM983 
) C985 


C9686 
C087 


C988 
C9689 
C98C 
C98D 
C990 
C991 


C994 


C096 
C997 
C999 
CA 
C99B 
C939D 


C99E 上 


C9AD 
CgA1 
C9A4 
C9A5 
C9A6 
CWA7 
CgAGS 
C9A9 
C9AC 
CgAD 
C9BW 
CB 1 
CB4 
C0BS 
CgB8 
CB9 
CMBB 
CBE 
CWC1 
C9C2 
C9C3 


CWC4 


C9C7 
C9CS 


C9CB 
CCC 


C9@CD 
C9CE 
C@D1 
C9D4 
C9D5 
C9D6 
C9D9 
C9DA 
C9DB 
C9DE 
C9DF 
C9E2 


COE3 、 


C9ES 
C9E6 
C9E8 


し MES 


CgEA 
C9EC 
C9ED 


C1 
2AAECDW 
7C 
FECW 
D2CBCW 
210949 
99 


C38CCW 


F 1 
し に 9 


F う 
CD7 1CW 
2159C1 
し 9 


GTa56・ 


10OP1 : 


10OOP2 : 


100Pp3: 


td : 


qU1t1: 


disSp: 


1 OOP4: 


loop5: 


] OOP65: 


add 
1d 
1 mC 
1d 
1d 
add 
Set 
1d 


et 


PUSh 
Cal1 
PUSh 
1d 
add 
1d 
1d 
PuSh 
1d 
PuSh 
XOT 
Out 
1 mC 
OUt 
deCc 


add 


PuSh 


PuUSh 
1d 
OUt 
inc 
1d 


|-2 パタ ー ン の 移動 


hl .de 
3U 革 8 

h 

D。 RI) 

hl . (xpOS } 
hl , bcC 

な 。 

bh 


C, 1 


af 

adr 

bC 

h1 ,28H 
hl , DC 
a,2Z 

af 

a,8 

af 

a 

(C) .a 

bC 

(C〕) 。a 

bC 

hl ,9899H 
hl1 ,bC 
bh 

さぶ 

af 

a 

nmZ , 10OpPJ 
af 

bc . 990909H 
a 


DC 

hl , (td+1 ) 
a,h 

9CMH 
nC,qUuit1 
h 1 , 4999H 
hl , bC 
b,h 

生 
de,19H 
1oOP1 


at 


at 

adY 

hl ,pdata 
bC 

hl 
de,9919H 
1 。QG 
de,hl 

hl] ,9928H 
hl 。bC 
(td1+1 ) hl 
h 1 


a 。 2 


Say 


1 コ 


14 








136 
137 
138 
139 
1 49 
141 
1 42 
1 43 
144 
1 45 
146 
147 
1 48 
1 49 
159 
151 
152 
153 
154 
155 
156 
157 
158 
159 
169 
161 
162 
163 
164 
165 
166 
16/ 
168 
169 
17g 
17 1 
172 
173 
174 
1 7 ひ 


176 


177 
178 
179 
189 
181 
182 


183 
184 


185 
186 
187 


188 
189 


C9EE 
C9F9 
CgF 1 
CFP2 
C9F3 
C9F4 
C9F7 
C9F8 
C9F9 
C9FA 
C9FB 
CMFC 
C9FD 
じ 1099 
C101 
C104 
じ 195 
C198 
C199 


C19A 


じ 19D 
じ 1 9E 
C119 
C113 
C116 
だ ます 
C118 
C119 
C11A 
C11D 
C11E 


C121 
ヤー 
C123 


C124 
じ 1 26 


じ し 江 が 
C12B 
C1 2F 
C133 
C137 
C13B 
C13F 
し 143 
C147 
C14B 
C14D 
C151 
C155 


じ 159 
C1 SD 
C161 
C165 
C169 
C16D 
に 71 
C175 


に し に 173 
C17D 
C181 
C185 
C189 
C18D 
C191 
し に 195 


C199 
じ 19D 


FECM 
D221C1 
219949 
99 

3 

4D 

E1 
111999 
19 
C3D4C@ 


E]1 
F1 
C9 


99909 
9 り 0 


99992899 
S9997899 
A999C809 
F9991891 
4991689 り 1 
9991B89 1 
E9019892 
39925892 
8092A892 
D0092 

F89229093 
489379093 
9893C993 


999A3F3F 
JF3D3D3F 
3F3C3C3F 
3F3F3F99 
99A9FCFC 
FCBCBCFC 
FC3C3CFC 
FCFCFC99 


973966CE 
CE4C9C9E 
46DBDB89 
099009F9 
E99C6673 
7332397 
62DBDB9 1 
90999 り 99F 


973F66CE 
CE4C9C9E 


td1: 


quUit2: 


XPOS : 
YPOS : 


table: 


Pdata: 


Out 
deC 
1 mC 
1 1C 
PuSh 
1d 
add 
1d 
1d 
POP 
POD 
deC 


POP 
1d 
deC 
JP 
POP 
PUSh 
1d 
1d 
CP 
Jp 
add 
1d 
1d 
POP 
1d 
add 
JP 
POP 
POP 
ret 


defw 
defb 


defw 


defw 


defw 


defb 
defb 
defb 
defb 


defb 
defb 
defb 
defb 


defb 


(C) ,a 

bC 

h] 

de 

hl 

hl] ,9899H 
hl , bc 
bh 

1 

hl 

af 

4 

nZ , 1OOp6 
af 

DC , 9999H 
a 

nZ , 1OOp5 
bC 

hl 

hl , (td1+1 ) 
ah 

9C9H 
nC,quU1t2 
hl ,4999H 
hl , bc 
b,h 

CC は 

hl 
de,19H 
hl ,de 
10OOp4 


hl 
af 


9,49、89.129.169.209,249,289,329,369 


4909、449.489.、529.569.699.649,688,720 


769.899.849.889.929.969 


99H,9AH, 3FH,3FH, 3FH, 3DH , 3DH , 3FH 
JFH.3CH, 3CH 3FH , 3FH 、 3FH , 3FH , 99H 
99H,9A9H,9FCH,.9FCH, 9FCH,9BCH, 9BCH 、9FCH 
9FCH,3CH , 3CH, 9FCH , 9FCH , 9FCH , 9FCH , 9H 


97H,39H,66H, 9CEH , 9CEH , 4CH , 9CH , 9EH 
46H、9DBH , 9DBH , 89H , 99H,99H,99H,9F9H 
9EH, 9CH, 66H, 73H, 73H , 32H, 39H, 79H 
62H. 9DBH , 9DBH , 91H,99H,99H,99H,9FH 


97H,3FH, 66H, 9CEH , 9CEH , 4CH , 9CH , 9EH 


を 


1-2 パタ ー ン の 移動 





リス ト |-5 つづ き 


199 C1A1 46C3C380 deftb 46H,9C3H , 9C3H , 89H , 99H,99H,99H, り F8H 
C1A5 999999F8 [ 

191 C1A9 E9FC6673 detb 9E9H,9FCH ,66H, 73H, 73H,32H, 39H,70H 
C1AD 73323979 


192 C1B1 62C3C30 1 defb 62H,9C3H, 9C3H,91H,99H,99H,99H,1FH 
C1B5 9999991F 


1-2-3 大 き な バ ダー ン の 移動 


これ まで 扱っ て きた 16X16 ドッ ト の パタ ー ン は , ゲー ム 
に 出 て くる 普通 の キャ ラク タ と し て は , 十分 な 大 きる で す が , 
や は り , 見 た 目 の 面白 きる を 出す た め に は より 大 き な パ ター ン 
を 表示 し た いと ころ で す 。 そこで, こん ど は 64X64 ド ッ ト 
の 大 き な パ ター ン を 動か し て み ま す 。 

パタ ー ン が これ だ け 大 きい と デー タ 量 も 相当 な も の で す 。 
で すか ら , 大 き な パ ター ン を 表示 , 移動 させ る 場合 、 い ちい 
も 消去 と 表示 の 繰り 返し も し て いた だ の で は , 大 幅 に 遅く な っ 
て し まい ます 。 そのため, パタ ー ン が ちら つ 《 こ と も あり ま 
す 。 こ の 対策 と し て 「『 部 分 消去 〕』 と いう 方 法 を 使い ます 。 

これ は ,。 た と えば 左 へ 8 ドッ ト 移 動 す る とき は パタ ー ン の 
圧 8 ドッ ト だ け を 消去 し , あと は , 移動 する 位置 へ パタ ー ン 
の デー タ を 書き 込む だ け に する と いう 方 法 で す 。 

リス ト 1-6 の , 'erase 1' と 'erase 2 は , それ ぞ れ 左右 8 ドド 
ッ ト を 消去 する もの, 上 下 の 8 ライ ン を 消去 する も の で す 。 

この よう な 大 き な パ ター ン で な く て も ちら つき が で る 場合 
が あり ます 。 こ れ は , 前 に 表示 し て る も の と 同じ も の を 同じ 
と ころ に 書き 込む 場合 に 起こ り ま す 。 こ れ を 解決 する の は , 
アル ゴリ ズム 上 の 間 題 で キャ ラク タ が 動か な いと き は 再 表 
示し な いと いう よう に すれ ば よい で し ょ 2。 
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]eft: 
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Z。left 
・6・ 
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17 
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hl . pdata 
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CU9A 
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4D 
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1d 
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Set 
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Cal1 
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detw 


1|-2 パタ ー ン の 移動 
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「 リス ト |-6 


つづ き 


C1F1 F8922993 defw 769,899.849,889,929,969 
C1F5 48937993 | 
C1F9 9893C993 





| C1FD 9809 XPOS: defw 8 
CC1FE 9999 YPOS : defw の 
C291 99099 adwOork: defw り 

C じ 2093 Pdata: 


ト 〆-4 横 4 ド ッ ト 単 位 の 密 動 


VRAM の 構造 上 ,。 上 下 に は 1 ドッ ト 単 位 で も 移動 で きま 
す が , 左右 へ は 8 ドッ ト 単 位 の 方 が 簡単 で す 。 し か し , 8 ド 
ッ ト 単 位 し と いう の は , 場合 に よっ て は 移動 量 が 大 きす ぎ て , 
な め ら か に 移動 し て いる よう に は 見 えま せん 。 そこで, こん 
と は 横 4 ド ッ ト 単 位 に 移動 する 例 を みて いき ます 。 

いま , 横 16 ド ッ ト (2 バイ ト ) の パタ ー ン が ある と し て , 
この パタ ー ン ・ デ ー タ を rld 偉 令 か rrd 命令 に よっ て , 4 
ビッ ト 分 シフ ト し て 3 バイ ト の デー タ に し ます ( 図 1-4)。 
を し て , 図 の (A) の デー タ を VRAM に 書き 込ん だ 後 , 
右 へ 4 ビッ ト 移 動 す る # に は (B) の デー タ を 同じ VRAM の 
アド レス に 書き 込め ば よい わけ で す 。 る さる ら に , 右 へ 4 ビッ ト 
移動 する に は , 再び , (A) の デー タ を 前 の VRAM の アド 
レス 十 1 に 書き 込み ます 。 例 を リス ト 1-7 に 示し ます 。 





2 バイ ト か ら 3 バ イト へ 拡張 


(A) 110100111011011 


有 へ 4 ピッ ト 分 シフ ト し て 3 パイ ト に 拡張 する 。 


(日 ) 00001101001110110110000 
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1d 
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af 
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di1SP 
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a 
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a,(fl9) 
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, KeY 
ETa56e 
a。(fl19) 
a 
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a , (XPOS ) 
a 
(xpO5 ) ,a 
a.9FFH 
(flg)。a 
1 eft3 


8 
(f19),a 
diSp 
KeV 


a, (XPOS ) 
38 
C,Tight1 
a,(flg) 
a 

ZZ, Key 
erTaSe 
a。(f19) 


コ 
Z,Tight2 
a 
(Ef19).4 
a, (XPOS ) 
a 

( XPOS }) ,a 
right3 
a,9FFH 
(fl19),a 
d1SD 

KeV 


|1-2 パタ ー ン の 移動 


iTf xpos>9 thenm left1 
if19 1 8 

iflg=9 ? 

ilf flg=9 then Key 
EraSse Patternn 


iIf flg=9ffh then left2 
ideGCTe 因 Et XpOS 


iSet f19 


iClear f19 


XPOS=38 『 
*If xpos>38 then right1 


*If flg=9 then right2 
iClear f19 


・Increment fl1g9 


Set f19 
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7 和 
75 
アア 
7B 
7 
809 
8 1 
82 
83 
84 
85 
86 
87 
88 
89 
9 
9 1 
2 
93 
4 
95 
96 
97 
98 
99 
1 9 
191 
192 
109:} 
194 
195 
196 
197 
198 
109 


ェ ーー 
CC 


トゥ 
トウ ーー 一 コ の の の モ の 一 


123 
124 
[さら 
1 26 
| ジ セ 』 
128 
129 
139 
131 
132 
133 
134 
135 
136 
137 
138 
139 
149 
141 
1 42 
1 43 
144 
145 
146 
147 
148 
1 49 
159 


C997 
C99A 
C99B 
C99E 
C99F 
CDA2 
C9A3 
C9A4 
C9A7 
C9AA 


C9AD 
C9B9 
C9B3 
C9B4 
C9B5 
CB6 
CB7 
(C9B8 
C9BB 
C9BC 
C9BF 
C9C9 
C9C1 

CC2 


CC3 
CC6 
C9C9 
C9CA 
CCC 
CCE 
CD 
C9D2 
CD5 
C9D8 
C9DC 


C9DF 
C9Ed 
C9E5 
C9E6 
C0E7 
C9EB 


C9EE 
C9F2 
CMF 4 
CFS 
CO9F6 
C9FA 
C9FD 


C9FE 
C191 
C195 
し 108 
C109 
C109A 
C じ 1 9B 
C19E 


C19F 
し 』 12 
に 】 1S 
に 1』17 
C11A 
C11B 
も も 
ClIE 
C1IF 
C129 


CD3DC1 
C393CB9 


り 1F3C1 
2A3BC 1 


29 
99 
ひも 
23 
S6 


2A39C1 
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119949 


: き 
ES 
(1 
(9 


CD15C3 
3A37C 1 


B7 

2Z894 
JE03 
1892 
SE92 


3238C1 
CDADC9 
ED4333C1 
CDFEC@ 


ED4B33C1 


3E49 
89 
47 


ED4333C1 
CDFEC9 ・ 


ED4B33C1 


3E49 
80 
47 


ED4333C1 
CDFEC9 


C9 


CD9FC1 
ED4B33C1 
2128090 


99 
14 
4D 


CD1 2C1 


C9 


2A33C1 
2235C1 


1698 


3A38C1 


の む 


adT : 


GFTa56・ 


ETa5e1l: 
GTYaSe2: 


ETPlan: 


er8lin: 
GT81i: 


erT8ll: 


eT812: 


add 
1d 
1 TnC 
1d 
1d 
add 
1d 
add 
Push 
POP 
et 


a。(yPOS ) 
a 

Z, Key 

af 

ETa56e 

af 

ヨ 
(ypOS ) , a 
d1SPp 

Key 


bC,table 
hl 。 (yBOS ) 
hl,hl 

hl 。bC 

Ge, (hl ) 

hl 

d, (hl ) 

hl . (XPOS ) 
hl ,de 

de ,4999H 
hl , de 

hl 

bC 


ERASE PATTERN 


Cal 1 
1 d 
Or 
le 
1d 
Jr 
1d 
1d 
Cal 1 
1d 
Cal 1 


1d 
1d 
add 
1d 
1d 
Cal1 


1d 
1d 
add 
1d 
1d 
Cal1 1 
ret 


Call 
1d 
1d 
add 
1d 
1d 
Cal 1 
Tet 


1d 
1d 
1d 
1d 
1d 
XOT 
OUt 
1 mnC 
deC 
JY 


dely Delay 

a.(flg) 

ZZ.eYTaSel 

a.3 Pattern length (3byte) in a 
ETaSse2 

2 Pattern length (2byte) in a 
(len9 ) , a iEraSe pattern 

dr 

( adwOrK ) , bC AddTeSS Of Vram 1m adwOrK 
erplan siBlue Plane 


bC 。 ( adwOrK ) 
a , 4 日 ' 
a,b 

b,a 

( adwOrK ) , bC 
erYpPlan 


iRed plane 


bC, (adwOrK ) 
a , 49H 

a,b 

b,a 
(adwOrK ) , bc 
erpBlan 


GTeem Plane 


GT8lin 

bC, (adwOrK ) 
hl , 49 

hl , bC 

b。h 

meT811i 


hl , (adwOrK ) 
(adw1 ) , hl 
d,.8 

a, (eng ) 

E , 3 

a Clear a 

で 。 ま 

bC 

a sdeCTe 丁 Eht length 
nhZ , er812 


iETaSe UPPer 811ine 
EraSe ]Ower 811ne 
Set COunter 


は 





15 1 
152. 
153 
154 
155 
156 
157 
158 
93 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
179 
條 
172 
173 
174 
175 
176 
177 
178 


C122 
し 123 
C124 


C128 <z 


5 
し まし 
に 12F ト 
C139 
C131 


C133 
に 39 
し 3 メ 
C138 
に 139 
13B 


し じ 13D 
C1409 
C143 
C144 
C146 
C148 
C14C 
C14E 
C159 


179 C1S4 
189 C157 
181 CISA 
162 CiSE 
183 

184 C161 
185 C16S 
186 C167 
187 C168 
188 C163 
189 CI6D 
190 

191 C17W 
192 C174 
193 C176 
194 C177 
195 C1768 
196 C17C 
197 CI7F 
198 

199 C189 
299 C1683 
291 C18/ 
292 C18A 
293 CI8B 
204 C18C 
295 C18D 
2096 CI90 
29/ 

298 C191 
299 C194 
2 CEL97 
2Z11 CI99 
1 も CSL 
2Z213 CISD 
214 C1A9 
215 C1A2 
216 C1A3 
217 CIAS 


218 CIA6 : 


219 
229 C1A8 
221 CIA9 


| 演 2 し 1AA 


223 CIAE 
224 C1BI1 
29 に 1 は 2 
226 CIBS 


1 deC 
CB ド Et 
ED4B35C 1 1d 
219090958 1d 
9 add 
ZZ35C1 1d 
44 1 d 
4D 1 d 
18E4 注 
adwoOrk: def5s 
adw1: def 5 
9 fl1g9: defb 
り 有 7 1eh9: defb 
9A00 XPOS : defw 
99090 yPO5: defw 
・ 。 IiSPlay 
し じ J15 し 3 diSP: Ca1l 1 
3A37C1 1 d 
B7 OT 
2898 JT 
3E93 1d 
DD2185C2 1d 
1896 JT 
3E92 displ: 1d 
DD2125C2 1d 
3238( 1 diSP2: 1d 
CDADCW Ca1 1 
ED4333C 1 1 d 
CD89C 1 Call 
ED4B33C 1 1d 
3E49 1d 
89 add 
47 1 d 
ED4333C1 1d 
CD89C1 Cal 1 
ED4B33C 1 1d 
3E49 1 d 
8M add 
47 1d 
ED4333C 1 1d 
CD89C1 Cal 1 
C9 Tet 
CD91C1 dpplan: Call 
ED4B33C 1 1 d 
21289 1d 
り 9 add 
44 1d 
4D 1d 
CD94C1 Cal1 
C9 Fe{ 
2A33C 1 _dpB8lin: 1d 
2235C 1 @dP81ji: 1d 
1608 1d 
3A38(C 1 dp8l1: 1d 
SF 1d 
DD7E00 dp812: 1d 
ED79 Out 
3 1 1C 
DD23 1 1C 
1 D dec: 
29F5 JT 
15 deC 
CB8 et 
ED4B35C 1 1d 
219998 1d 
99 add 
9 1 1d 
4 1d 


d 
と 


bC. (adw1) 
hl , 9890H 


hl ,bC 


bh 
| 
eT81l 


呈 一 選 芋 は は ら P 


dely 
a.、(19 す ) 
a 
Z.。diSPpl 
8 。39 
1X、Sdata 
d15Sp2 
1xX,pdata 


|-2 パタ ー ン の 移動 


deCcTeemt COuriter 


・Pattern 
AddTeS5 


・Patterr 
・ 各 deS5 


1]enmdth jn a 
Of Sdata 1 1X 


length in a 
Of pdata li 1iX 


( | en9) .a 
adT' 
(adwoOrk) 、bC 
dPPl ai Blue Plane 
bc , (adwOrK ) 

a , 49H 

a.b ・Red plane 
b 、a 

(adwork).bc 

dPPlan 


bcC.( adwOTK) 

a , 49H 

る 。b ・GTeeT Plane 
b,a 

(adwOTK ) 、 DC 

dPPl an 


dp8lin 

bc . ( adwOoTk ) 
hl .40 

hl .bc 

bh 

e 了 

Qp81 1 


h] 、(adworKk ) 
(adwl ) .hl 
d.5 

a,( erg ) 
Ge、4 

き 。 (1%) 
(CC),。8a 

bc: 

季 

6 

TnZ .dp812 


| 

Z 

DC 、( adwl ) 
hl .98909 昌 
hl . br 

( adw1l ) . hl 
b 、h 


ar 4 


2 づ 


有人 4 





227 
2268 
ンク 9 
239 
231 
る 32 
23J 
234 
2 うら 
<35 
23/ 
238 
239 
249 
24 1 
242 
243 
244 
245 
246 
24/ 


48 


249 
259 
251 
252 
2Z5 コ 
254 
25 り 
256 
257 
258 


259 


C1B6 
C1B7 


C1B9 
C1BD 
に は を 1 
C1C4 
C1C6 
C1C9 
に も も 
C1D@ 
C1D1 
C1D3 
C1D6 
C1D8 
C1D9 
C1DA 
C1DC 
CIDF 
CE 
C1E2 
CIE4 
CIE7 
C1E9 
C1EB 
C1ED 
C1 EE 
Cl1F9 


に 1FI 


C1F3 
C1F7 
C1FB 
CI1FF 
し じ 293 
C29/ 
C209 
C29D 
C211 
C215 
し 219 
C21D 
じ Z21 


C225 
に 228 
CZ2D 
C231 
C235 
C239 


) C23D 


C24 1 


C245 
C249 
C24D 
し じゃ の は 
C255 
C259 
し 25D 
C261 


C265 
C269 
C26D 
に 2 
に 2 の 
に る 9 
C27D 
C281 


し 28 ら 5 


C315 
(C318 


4D 
18E@ 


DD2125SC2 Shift: 


FD2185C2 
21F1C1 
9639 
DD5E み 9 
DD569 1 
ED53F1C1 
AE 
ED6F 
FD7799 
FD23 
7E 

23 
ED6F 
FD77909 
FD23 
7E 
E6F9 
FD7796 
FD23 
DD23 
DD23 
2B 
19D6 
C9 


り 99928009 
oS9997809 
A り 00C800 
F0091891 
49916801 
990 1 

B891E991 
り 8923902 
S8928992 
A892D092 
F8922003 
48937993 
9893C993 


90 り 00AAM 
JFFCdFFC 
3FFC3DBC 
3DBC3FEFC 
3FEFC3C3C 
J じ 3C3FFC 
3FEFC3FFC 
3CFC99090 


97E9399C 
6666CE7d 
CE734C32 
gg じ 399E79 
4662DBDB 
DBDB890 1 
99099990 
り 090F99F 


97E93FFC 
6666CE73 
CE734C32 
り じ 399E7/9 
4662C3C3 
C3C38009 1 
り 9099900 
りり 99F81F 


916919 
9B 


] 下 1 : 


wdata: 


table: 


pdata: 


Sdata: 


dely: 


delyl: 


1d 
jr 
1d 
1d 
1d 
1d 
1d 
1d 
XOT 
Fr1d 
1d 
1 nC 
1d 
1 nC 
Tl1d 
1d 
1 C 
1d 
ad 
1d 
1 C 
1 nC 
1 nC 
deC 
d JmZ 
et 


def5 
defw 


defw 


defw 


defb 
defb 
defb 


defb 


defb 
detb 
defb 
defb 


defb 
defb 
defb 
defb 


deftS 


1d 
deC 


の ま 
dpP81 1 
1X, Pdata 
1 y , Sdata 
hl .wdata 
b,48 

GE。 (1X) 
d,(1X+] ) 
(wdata) ,de 
a 

(1Y)。a 

1 y 

a。 (hl ) 
hl 

(も EV) 。a 
1y 
a,(h]1 ) 
9F9H 
(1y)。.a 

1 y 

1 X 

1 X 

hl 

部 P 1 

2 


り .49.89,129,.169.299,249,289,329 , 369 , 499 


449,489,529.569.699.649,689,729,769,899 


849,889.929,96g 


99H,99H.9AH, 9A9H, 3FH, 9FCH , 3FH, 9FCH 
JFH , 9PCH , 3DH , 9BCH , 3DH , 9BCH , 3FH , 9FCH 
JFH,9FCH, 3CH, 3CH, 3CH , 3CH , 3FH, 9FCH 
JPFH .9FCH , 3FH, 9FCH , 3CH , 9FCH , 99H , 99H 


9 り /H,9E9H,39H, 9CH, 66H, 66H,9CEH , 73H 
り CEH , 73H , 4CH , 32H , 9CH , 39H , 9EH, 79H 
46H. 62H, 9DBH , 9DBH , 9DBH , 9DBH , 89H,91H 
99H,99H、99H,99H.99H,99H,9F9H, 9FH 


9/H,9E9H.,3FH, 9FCH, 66H, 66H, 9CEH , 73H 
9CEH,73H , 4CH 、32H 9CH, 39H, 9EH., 79H 
46H.62H,9C3H. 9C3H , 9C3H , 9C3H, 89H.91H 
り 9H,99H.99H.90H,99H.99H,9F8H,1FH 


144 


bC、1090909H 
bc 


blue 


iTGd 


9TeeIn 


Pa 4 


28] C319 79 


っ 282 C31IA B9 
283 C31B C8 
284 C31IC 18FA 


1-2 パタ ー ン の 移動 





の の 





2O 








これ まで は , パタ ー ン の 表示 や 消去 の と き に 背景 の こと を 
考 應 し て いま せん で し た 。 そ を そのため, 背景 に 何 か 表示 る れ て 
いる 場合 , これ まで の 方 法 で は , 背景 に 影響 を 号 え て し まい 
ます 。 こ こ で は この 背景 と の 重ね 合わ せ テ クニ ッ ク ヒ と PCG 
に よる スク ロー ル を 紹介 し ます 。 


3-1 重ね 人 台 わ せ 


テキ スト 画面 と グラ フィ ッ ク 画 面 の を それぞれ に 移動 物 と 背 
景 を 表示 する ぶん に は , 重ね 合わ せ を 気 に す る 必要 は あり ま 
せん 。 しかし, グラ フィ ッ ク 画 面 ど だ け を 使う と き は , 背景 に 
曳 響 や を サ えん な いよ うに する 必要 が あり ます 。 こ れ に は , パタ 
ー ン を 消す と き に 背景 を 書き 直せ ば よい の で す が , こう する 
と パタ ー ン の デー タ の “0 の 部 分 だ け 背 景 が 黒く な っ て し ま 
い , 多少 不 目 然 な 感じ が し ます 。 こ れ を 避け る だ た め に は 次 の 
ょ うな 方 法 が あり ます 。 

[ 1 ] パタ ー ン と 背景 の 排他 的 論理 和 を と る 

Z 8 0 の マシ ン 語 に 'xor' と いう ニモ ニッ ク が あり ます が , 
これ は 同じ 値 ど うし で 演算 する と 0 に な り ま す 。 こ れ を 利用 
する と 背景 に 影響 を 与 を ず パ ター ン を 表示 する こと が で きま 
す 。 

まず ,。 表示 する と き は , その 位置 の 背景 ゲー タ と パタ ー 
ン ・ デ ー タ の XOR を と っ て VRAM に 書き 込み ます 。 消す 
と き は , さき は と 論理 演算 し た 結果 と パタ ー ン ・ デ ー タ の 
XOR を る ら に と っ て , その デー タ を 書き 込み ます (背景 を 
書き 直し て も よい )。 

リス ト 1-8 に この 例 を 示し ます 。 実行 前 に グラ フィ ッ ク で 
適当 に 背景 を 書い て な いて 〈《 だ さい 。 実行 する と わか り ま す 
が , この プロ グラ ム で は 背景 に 影響 を 与 を な いか わり に , 


|-3 応用 テク ニッ ク 


ター ン そ の も の の 色 が 背景 の 色 に よっ て 変化 し て し まう と い 
う 欠点 を 持っ て いま す 。 





1 % 

2 ーーー patter'm mmOVve 〔(XOY) 
3 6 

4 CM Or 9C990H 

5 

5 Cg99 CD8BC9 Cal 1 eYa5e 

すず 6 

8 CB993 919919 KeY・ 1d bC . 1999H 
g C996 ED768 1 jn a。(C) 
1 0 1 
11 C9@98 FE32 CP ia 

12 Cg9A CA22CM JP Z ,dOwn 
13 C99D FE34 CD "人 4" 

14 Cg99F CAd37Cg JP ヶ 。left 
15 Cg912 FE36 CP h 

16 C@14 CA4BCg JPD 。 ま 二 す D も 
17 C917 FE38 CP 較 

18 C919 CA69C9 JP Z 。UPD 

19 C91C FE2A CP E 
2g C91E C8 Tet Z 
21 Cg1F C393CW Jp Key 
22 1 
23 CH22 3A47C1 dowT: 1d a 。〔yPOS ) 
24 C925 FE17 CDP の 
25 Cg27 D293CM JP nhC、Key 
26 Cg2A CD8BCW Ca1 1 eTa5e 
27 C92D 3C 1 1C 8 
28 Cg2E 3247C1 1d ( yPOS ) ,a 
29 C931 CDE8CW Cal 1 diSP 
39 C934 C393CD JP KeYy 
き 1 1 
32 C937 3A45C1 left: 1d a 、 (xpOS ) 
33 C93A B7 OF a 
34 C93B CA93CM JP Z。KeV 
35 C93E CD8BCW Cal 1 eYaS6e 
36 C941 3D deC a 
37 C942 3245C1 1d ( XPOS ) ,a 
38 C945 CDE8C9 Cal 1 d15SPp 
39 C948 C393CW JP key 
40 1 
41 Cg94B 3A45C1 right: 1d a, (XPOS ) 
42 C94E FE26 CDP 38 
43 C959 D293CM JP nC,Key 
44 C953 CD8BCW Cal1l ETYa5e 
45 C956 3C 1 1C a 

46 C957 3245C1 1d ( XPO5S ) ,a 
47 Cg5A CDE8CD Ca1l 1 di Sp 

48 C95D C303CW JP KeVy 

49 6 
5 Cg69 3A47C1 UP : 1d a,(yPOS }) 
51 C963 B/ OF a 

52 C964 CA93CW JP Z, key 

53 Cg67 CD8BCW Cal 1 eTa5e 

54 C96A 3D deC a 

55 C@6B 3247C1 1d ( ypPOS ) . a 
56 C96E CDE8CW Cal 1 diSP 
57 C971 C393C@ JP KeYy 

58 6 

59 C974 3A47C1 adr : 1d a,(yPOS ) 
69 C977 8/ add a.8 

61 C978 6F 1d 1 .、a 
62 C979 2609 1d h . 9 
63 C@7B 1148C1 1d de.table 
64 C97E 19 add hl ,de 
65 C97 ト 4E 1d に 1 3 
66 Cg989 23 1 nC hl 

67 C981 46 1d b。 (hl ) 


リス トト 


ン / 





ーー 一 
一 本 
5 (DC 


mi 


ee 
ーー 
の 


| 129 
| 121 


122 
123 
124 


1 25 


| 126 


127 
128 
129 
130 
131 
132 
133 
134 
13S 


| 136 
| 衝 
| 138 


ご 


139 
149 


| 141 
| 142 
| 143 


CoO JO の 四 中 らら レデ 


2199098 
99 
44 
4D 


99 
ES 
し 1 
E 1 
11199W 
1 3 
C392C9 


E 1 


212809 


ETaSe: 


10OP1 : 


1OOPZ: 


10OP3: 


td: 


qU1t1: 


di1S5P: 


10OP4: 


POP 
Tet 


PuSsh 
Cal1 
1d 
PuSh 
Pu5Ih 
1d 
ad 
eX 
1d 


hl 、( XpO5S ) 


hl , bc 
6 .h 
b,h 
EE。【 


af 
adr 


hl , pdata 


bC 
hl 


de.9919H 


hl .de 
de .hl 
hl .28H 
れ も 1 、b と 


(td+] ) .hl 


hl 


de 
h 


hl ,9890H 


hl . bc 
b、h 
ar 
hl! 

af 

3 


1Z、loOP33 


at 


bC , 90909H 


d 


1Z 、 10OOD ご こ 


be 
h 1 


hl 。(td+1 ) 


a,h 
CH 


nhC,qUitl 
hl .49909H 


hl 、bC 
h 1 

bC 

hl 
de,109H 
hi 、de 
loop 1 


h 1 
af 


af 
adr 


hl , pdata 


bC 
hl 


de,9919H 


hl .de 
de.hl 


hl .9928H 


Tead bucrk grOund 
・【buCK 9TOUuTd ) xOF 
PDI'1hI 

1 TnCFTement addreSsS Of Vvra 症 


(Pattern detaj) 


"ブツ プ ん 





144 
114S5 
| 146 
147 
1 468 
| 149 
| 159 
151 
152 
153 
154 
155 
156 
57 
| 158 
| 59 
169 
161 
| 162 
163 
1164 
165 
166 
| 167 
168 
|169 
179 
動 芝 認 
172 
173 
1174 
1 79 
176 
設 
178 
79 
189 
161 


182 


183 
184 
185 
186 
187 
188 
「 189 
190 
1191 
192 
193 
194 
1 99 
| 196 
197 
199 
1199 


290 


291 
| 202 
293 

294 
| 295 


| 296 


CgF9 
C9FA 
C9FD 


C9FE 
C190 
C101 
C1093 
C194 
C106 
C197 
C1099 
C109A 
C19C 
C19D 
C1 9E 
C119 
C111 


還る / 


C113 
C114 
に 115 
C118 
C119 
CI11A 
C11B 
に まま ん 
C11D 
に 11E 
C121 
C122 
C125 
C126 
し 1】 29 
C12A 
C12B 
替 補 19 
に 1 2 
C131 
C134 
C137 
C138 
C139 
じ 13A 
C13B 


に SE 


C13F 


C142 
C143 
し 144 


C145 
C147 


C148 
C14C 
C159 
C154 
(158 
C15C 
C169 
C164 
C168 
し 16C し 
し 1 6E 
に 7/2 
C176 


C17A 
し 1 7 も 
C182 
C186 
C18A 
C18E 
し 192 


ES 
2199098 
09 
は ュ 
4D 
E] 
F 1 
3D 
C293C] 
F 1 


C299C1 
し 1 

ES 
2A23C 1 
7C 
FEC9 
D242CI 
210040 
909 


9000 
り 0 


99992800 
S99978090 
A099C890 
F900189! 
49916801 
9991B80] 
E99198092 
39925802 
8992A802 
D002 
F8922093 
48937993 
9893C903 


り 99AJFJF 
SF3D3D3F 
3F3C3C3F 
JF3F3F00 
99A9FCFC 
FCBCBCFC 
FC3C3CFC 


td1: 


qU1t2Z: 


XPO5・ 
yYPO5 ・ 


tab1e: 


Pdata: 


add 
1d 
POP 


1d 
PuSh 
1d 
PUuSh 


XOY 
Out 
1 nC 
1 n 
EX 
XOT 
OUt 
eX 
deC 
1 1C 
1 C 
PuSh 
1d 
add 
1d 
1d 
POP 
POP 
deC 
JP 
POP 
1d 
deC 
JP 
POP 
PU5h 
1d 
CP 
]P 
add 
Pu5h 
POP 
POP 
1d 
add 
Jp 
POP 
POP 
Tet 


defw 
defb 


defw 


defw 


defw 


deftb 
defb 
defb 
defb 


hl ,bC 
(td1+1 ) ,hl 
h 1 


3。 

af 

a,8 

af 

4 1C) 
(hl ) 
(CJ。8 

bC 

きも 

de ,hl 

( hl ) 
(C〕) 。 る ぁ 
de,hl 

bc 

hl 

de 

hl 

hl] ,.9899H 
ID 
b,h 

ee 潮 | 

hl 

af 

a 

nZ , 1OoOp6 
af 

bC , 99H 
a 

hZ, 1OOP5 
bC 

hl 

hl , (td1+1) 
ah 

CH 
nC,qU1t2 
hl] , 4999H 
hl , bC 

hl 

bC 

hl 
de,1H 
hl 、de 

1 oop4 


rXOT (buck) and 


hl 
af 


り 
9 


9.49.89.129、169.299、249.289.329、360 


490.449.489.529.569.699.649.680.,72Z9 


7609.899.849.889.929.9609 


99H、9AH,3FH,3FH, 3EFH 3DH . 3DH. 3FH 


3FH 3CH . 3CH , 3FH. 3FH . 3FH . 3FH . 90H 


|-3 応用 テク ニッ ク 


iRead buck ground data 
(pattern data) 


99H、9A9H.9FCH.9FCH,9FCH,9BCH.9BCH.9FCH 


9gFCH.3CH. 3CH , 9FCH. 9FCH.9FCH.9FCH. 90H 


の" 


っ 9 


は つづ ツ ョ 





| C196 FCFCFC99 
297 


| 298 C19A 9@73966CE defb 97H、39H.66H, 9CEH , 9CEH . 4CH , 9CH 、9EH 
| C19E CE4C9C9E 
| 299 C1A2 46DBDB89 defb 45H. 9DBH . 9DBH. 89H.99H.99H.99H、9F9H 
| C1A6 999999F9 
1219 C1AA E99C6673 defb 9E9H.9CH.66H.73H.73H .32H 。39H 79H 
C1AE 733239769 
211 CIB2 62DBDB9 1 defb 62H, 9DBH 、9DBH.91H.99H.99H.99H.9FH 
C1B6 9999999F 
212 ( 
213 CIBA @73F66CE defb 97H、3FH.66H.9CEH . 9CEH . 4CH , 9CH 、9EH 
C1BE CE4C9C9E 
214 C1C2 46C3C389@ defb 45H , 9C3H 、 9C3H , 89H、99H. 99H、99H、dF8H 
C1C6 999999F8 
215 C1CA E9@FC6673 defb 9E9H,9FCH.66H、,73H, 73H. 32H , 39H.,79H 
C1CE 73323979 
216 C1D2 62C3C39 1 defb 562H.9C3H.9C3H.91H、99H.99H.99H.1FH 


C1D6 0999991F 


[ 2 〕 完全 な 重ね 合わ せ 

これ は , ちょ うど 背景 に パタ ー ン を は めこ む よ う な も の で 
す 。 図 11.5 を みて 《 く だ さい 。 ま ず 。 RGB の パタ ー ン ・ デ ー 
タタ の OR を 取り , それ の “1" と "07 を 反転 し ます 。 こ うし 
て , 得 5 れ だ データ の “ 1” の 部 分 は 。 パタ ー ン の 外 枠 に な り 
ます 。 

つぎ に ,。 この デー タ と 育 韻 の デー タ の AND を 取り ます 。 
そして, さら に パタ ー ン ・ デ ー タ と の OR を と っ た も の を 
VRAM に 書き 込み ます (リス ト 1-9) 。 これ で , 背景 に も パパ 
ター ン に も 影響 を 与 を な い 重 ね 合わ せ が で きま す 。 し か し , 
を の 反面 , 速度 が 遅く な る と いう 欠点 を 持っ て いま す 。 反転 
デー タ は , 最初 か ら 持 っ て も 良い の で す が , ここ で は cpl 
命令 で 作っ て いま す 。 

[ 3 〕 背景 と 移動 物 の VRAM を 分 離す る 

VRAM は , R・G・B の 3 ブ プレーン が 独立 し て いま す 。 を 
こ で , 背景 を VRAM 1 枚 で 表現 し て 残り の 2 枚 で 移動 物 を 
描く と いう よう な 方 法 が 考え られ ます (も ちろ ん 逆 も 可 )。 

1-6 の パレ ッ ト 番 号 0 と 1 の 部 分 の RED と GREEN を 
注目 し て くだ さい 。 両方 と も“"0" に な っ て いま す 。 これ は , 
RED と GREEN に 関係 な く BLUE に よっ て の み 色 を 支配 
で きる と いう こと を 意味 し て いま す 。 そこで 。 ここ で は この 
BLUE の プレー ン (パレ ッ ト 0 と 1) だ け を 背景 に 割り 当 
て て 2 色 で 表現 し ます 。 






る 無し 。. つ まり BLUE の 


Will 


わる の を 防ぐ だめ です 。 


が で きま す 。 例 を リス ト 1-10 に 示し ます が , パタ ー ン の : 
二 は 単純 に “0” を 書き 込む こ 上 で 行っ て いま す 。 

この 方 式 の 長所 は 高速 だ と た いう こと で す が , 短所 と し て 
移動 物 に 4 色 , 背景 に 2 色 し か 色 数 が 使 を な いこ と て す 。 


" 電 


PatterT mWOVe (and Or) 


0C900H 





つづ 2 





(の の ココ の 


19 
11 
12 
13 
1 4 
1 5 
16 
17 
18 
19 
2W 
21 
22 
23 
24 
2 っ 
26 
27 
28 
29 
3M 
き 1 
う 2 
33 
34 
すら 
36 
3/ 
38 
さけ 
49 
4 1 
42 
43 
41 
45 
46 
4/ 
48 
49 
og 
1 
ら 9 2 


う 3 


o4 
ら 5 
S6 
57 
S6 
S9 
60 
6 1 
62 
63 
64 
65 
66 
567 
68 
69 
79 
1 
72 
73 
74 
75 
76 
77 
78 
79 
80 
8 | 
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C990 
C993 


C996 
C999 


C99B 
C99D 
CI9 
し C912 
Cg15 
C917 
C91A 
C91C 
C91F 
C92 1 
C922 


C925 
C928 
C92A 
C92D 
C939 
C931 
C934 
C937 


C93A 
C83D 
Cg3E 
C94 1 
C944 
Cg45 
C948 
C4B 


C94E 
CS 1 
C953 
C956 
C959 
C95A 
C95D 
C960 


C963 
C966 
し 57 
C96A 
C96D 
C96E 
C97 1 
CB7 4 


C977 
C97A 
C07D 
C97/E 
C97F 
C080 
C98 1 
C982 
C985 
C986 
じ 89 
C98A 
C98B 
C98C 


C98D 
C98E 
C991 
(995 
C096 
(999 


CD61C1 
CD8DC9 


919919 
ED78 


FE32 
CA25C9 
FE34 
CA3ACg 
FE36 
CA4ECW 
FE38 
CA63C9 
FE2A 
C8 
C396C9 


JA7EC1 
P 記 』/ 
D296Cg 
CD8DC9 
3C 
327EC] 
CDDFC@ 
C396CMg 


3A7CC1 
B7 

CA96Cg 
CD8DC9 
3D 

327CC1 
CDDFC9 
C396Cg 


3A7CC1 
FE26 
D296C9 
CD8DCM 
3C 
327CC1 
CDDECW 
C396C9 


3A7EC1 
B7 

CA96C9 
CD8DC9 
3D 

327EC1 
CDDFC9 
C396CM 


9189C1 
2A7EC1 
29 


F5 
CD77CgM 
DD2132C2 
に 全 
2128099 
99 


つづ き 


dOwT : 


16eft: 


Tr19ht: 


adr ・: 


ET 356、 


] OOp1 


Cal 1 
Cal 1 


add 
add 
1d 
1 nC 
1d 
1d 
add 
1d 
add 
Pu5sh 
POPD 
Fet 


PUS5h 
Cal 1 


PuSh 
1d 
add 


FV 
で T'a5 ど 


DC , 1999H 
a。(C】 


・DC=1/O POrt addres3 
et Key (a=aSCii Code) 


計 ' 季 た 
Z .dOwn 

ER ・ "41! 
大 ませ 

加 央 


Z。F19ht 

共和 人 多 
忌 ,UP 

・・ 導い 
っ 

Key 


a , (ypOS ) 
PA 
TC.Key 
eTa5e 

還 
(ypPO5S ) 、a 
diSP 

KeV 


a, (XPOS ) 
a 

Z,Key 
ETaSe 

コ 

( XPOS ) , a 
di1SP 

KeV 


aq ,( XPO5S } 
38 
nC,Key 
ETa5e 

a 

( xpOS ) , a 
diSD 

KeV 


a (YEBO5 ) 
a 

Z。 Key 
GTaSe 

3 
(ypPOS ) ,a 
di5P 

Key 


bC,table 
hl . (ypOS ) 
hl] .hl 
hl , bc 

e、 (hl ) 

hl 

d. (hl) 

hl , (xpPOS ) 
hl .de 
de、49009H 
hl .de 

h 1 

bC 


af 

adr 

1X , bwOI'k 
bC 

hl] 、28H 
hl 、bc 


aop < 


94 
95 
96 
97 
98 
39 
199 
10 1 
192 
193 
194 
195 
196 
197 
198 
199 
1109 
11 1 
112 
113 
114 
115 
116 
117 
118 
9 
120 
12 1 
1 
123 
124 
125 
126 
は 
128 
129 
139 
131 
132 
133 
134 
135 
136 
137 
138 
139 
1 49 
141 
142 
143 
144 
145 
146 
147 
148 
149 
159 
151 
152 
153 
154 
155 
156 
157 
158 





DD23 
99 


D2DDC9 
219949 
99 
ES 
9 
111900 
19 
C395C9 
F 1 
に 
FS 


CD77CW 
21B2C1 


うつ づき 


loop2: 


100p3: 


td : 


qU1t1: 


d1SP: 


DD2132C2 


CO 
ES 
111999 
19 
EB 
212899 
99 
22JFCI 


10OOp4: 


E 1 
FD2112C2 


JE9 2 


ED78 
DD7799 
FDA6099 
B6 
ED79 

9 り 3 
DD23 
DS 
FDES 
1119090 
FD19 
ED78 
DD7799 
FDA600 
FDE ! 
D]1 

EB 

B6 


100Pp5S: 


IOOPp6: 


1d 
Pu5h 


PU5h 


POP 
Fet 


PUSh 
Ca1 1 
1d 


Push 
PuSsh 


add 


POP 


( td+ 1 ) .hl 
a、2 

af 

ga.8 

af 

a,(1X) 
に 。 省 


hl .98090H 
hl , bc 
b,h 

は 

af 

a 
nZ , 10OpP3 
af 

bC .9999H 
a 
nZ , 1OOp2 
bC 

hl .(td+1) 
ah 

9C9H 
nmC,qUultl 
hl 、49909H 
hl , bcC 

h 1 

bC 

de , 19H 
hl .de 
1OOP 1 


af 


af 

adr 

hl ,pdata 
1X, bwOrK 
bC 

hl 
de,99109H 
hl ,de 
de,hl 

hl ,.9928H 
hl , bc 


(td1+1 ) , hl 


hl 


ly,。TeVdata 


二 。: 記 

af 

a,8 

af 
上 で 1】 
し すす 。 台 
( 1y ) 
(hl ) 
1 。 放 
bC 

1 X 

de 

1y 
de.109H 
1y,de 
も りり 
(1X).a 
( iy ) 

1 y 

de 
de.hl 
( hl ) 


|-3 応用 テク ニ 


DUCK 9gYOUTO WOTK arTea 


・TeGVeTSe pattern data in 1iy 


iTead buCckK grOund 

5tOTe bwOYK 

(buUCK grOund ) and (revdata ) 
*OT Pdata 

・PT it 

*1IICFTement addrTe55 Of VFa 胡 
1 TICTe 加 Ent addre5s5 Of bwOrK 


SaVve YeVvdata 


Tevdata+16 in 1iy 


TelOad revdata 


Je 


ッ グ 


うう 





159 
169 
161 
162 
163 
164 
165 
166 
167 
168 
169 
179 
17 1 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
1 9 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
291 
292 
293 
204 
205 
296 
207 
298 
299 
210 
211 
212 
213 
214 
1 うら 
216 
217 
218 
219 
220 
22 1 


222 


2293 


224 


C126 


C127 
C129 
C12A 
C12B 
C12C 
C12E 
C じ 139 
C131 
C134 
C135 
C136 
C 137 
C138 


まま は 


C13A 
C13D 
C13E 
C141 
じ 142 
C145 
C じ 146 
C147 
じ 1 4A 
C14B 
じ 14D 
C150 
C153 
C154 
に 155 
C156 
3 
C15A 
C15B 


C15E 
に 9 
C169 


C161 
C164 
C167 
C169 
C16A 
C16B 
し 6 
C16F 
C1709 
に ま 】 
C172 
し 1 /3 
C174 
C175S 
C176 
し ま 了 / 
C178 
C179 
C17B 


し 1 7 し 
C17E 


C180 
C184 
C188 
C18C 
C1909 
C194 
C198 
し 9 し 
C1AO 
C1A4 
CIA6 
C1AA 
CI AE 


EB 
ED79 
9B 
23 
13 
DD23 
FD23 
ES 
219908 
99 
44 


FECW 
D2SEC 1 
2199409 
り 9 

ES 

C1] 

E1 
111999 
19 
CdEAC9 


E1 
F 1 
し 9 


21B2C1 
1 12 し 2 
9620 
E5 

DS 

7E 
11209909 
19 

B6 

19 

B6 

2F 

D]1 

12 

EI1 

1 3 

23 
19EE 
C9 


り 09909 
990909 


99992890 
S9997890 
A090C80909 
F9991891 
49916801 
J991B801 
E99198092 
39925802 
8992A802 
D002 

F8922903 
489370993 
9693C993 


tdl: 


qU1t2: 


TeV: 


] 加 1 : 


XPO5 ・ 
yPO5S・ 


table: 


EX 
Out 
deC 
1 C 
1 mC 
1 1C 
1 mnC 
PuSh 


add 


detw 


defw 


de,.hl 
(C よ 、。 名 

DC 

h 1 

de 

1 X 

1y 

hl 

hl .98909H 
hl .bC 
bh 

| 

h] 

af 

a 

nhZ , 1 OOP6 
af 

bC, 9990H 
a 
nZ , loop5 
bc 

hl 

hl ,、(tdl+1) 
a、h 

9CWH 
nhC.qUIt2 
hl .4909H 
hl . bc 

h 1 

bC 

hl 

de.10H 

hl .de 
100P4 


hl 
af 


hl , pdata 
de.Fevdata 
Db , 32 

h 1 

de 
a。【hl) 
de 、32 

hl ,de 
(hl ) 

hl .de 
(hl ) 


de 
(de) 、a 
hl 

de 

hl 
JmP 1 


9 
り 


In hl 


1ih de 


・addre55 of patterFh data 
*gddress of FeVverse dita 
xs な で 【 (COUTteT 


Patteirhn data in a』 
・PBdata+32 
・blue Or red 
・pPdata+64 


IT1 


の 


StOTe YeVeTSe data 


り 9.49.89.129,、169、299.249.289.329.360 


490.440,.489.529.569,699,649.689,729 


7/59.899.849.889.929.969 





|-3 応用 テク ニッ ク 


225 C1B2 999A3F3F pdata: defb 99H.9AH,3FH, 3FH, 3FH., 3DH , 3DH , 3FH 
C1B6 3F3D3D3F 

226 C1BA 3F3C3C3F defb 3FH 、 3CH , 3CH , 3FH , 3FH , 3FH , 3FH, 99H 
C1BE 3F3F3F99 

227 C1C2 99A9FCFC defb 99H,9A9H,9FCH , 9FCH , 9FCH 、 9BCH , 9BCH , 9FCH 
C1C6 FCBCBCFC 

228 C1CA FC3C3CEC detb 9FCH, 3CH , 3CH , 9FCH , 9FCH , 9FCH , 9FCH , 99H 
C1CE FCFCEFC ひ W 

229 1 

239 C1D2 973966CE defb 97H., 39H.66H., 9CEH , 9CEH , 4CH , 9CH , 9EH 
C1D6 CE4C9C9E 

231 C1DA 46DBDB89 detb 46H 9DBH , 9DBH , 89H , 99H, 99H,99H、9F9H 
C1DE 999999F9 

232 C1E2 E99C6673 defb 9E9H.,9CH, 66H, 73H 、73H , 32H , 39H,79H 
C1E6 73323979 

233 C1EA 62DBDB9 1 defb 62H , 9DBH 、9DBH,91H、99H,99H.99H,9FH 
C1EE 999099099F 

234 1 

235 C1F2 973F66CE defb 97H, 3FH ,66H .9CEH , 9CEH , 4CH , 9CH 、9EH 
C1F6 CE4C9C9E 

236 C1FA 46C3C380 defb 46H,9C3H , 9C3H , 89H , 99H . 99H,99H,9F8H 
C1FE 99909909F8 ' 

237 C292 EPC6673 defb 9E9H,9FCH ,66H,73H.,73H , 32H , 39H,79H 
C206 733237W 

238 C29A 62C3C39 1 defb 62H、9C3H,9C3H.91H、99H,99H.99H.1FH 
C29E 9999991F 

239 1 

249 C212 revdata:detS 32 

241 1 | 

242 C232 bwOTK: deftS5 36 | 

243 








リス ト |-10 
| 
2 1 ーーー SGDaTate VYa 症 ーーー 
J 6 
4 C9009 OrT9 9C999H 
5 * 
6 Cgg CD39C1 「 Ca1 1 plt 
7 1 
B C993 919919 Key 1d bC , 1 999H *bC=1/Oo port addres3 
9 CB96 ED78 in きま: (で iget Key (a=aSc1 1 Code) 
1 1 
1 1 Cg8 FE32 CP に 義人 
12 CggA CA22CW JP ヶ ,dOwn 1f as=2 then dOwin 
13 CggD FE34 CP 人 
14 C99F CA3AC9 JP Z,left :1f as=4 thenm 1eft 


ce < 


づら 


うつ 


FE36 
CA51Cg 
FE38 
CA69C9 
FE2A 
C8 
C393C9 


3A44C1 
FE17 
D293C9 
CD96CW 
きじ 
3244C1 
2178C1 
CDDACg 
Cd393 じ CB 


3A42C1 
B7 

CA93C9 
CD96Cg 
3D 

さ 242C1 
2178C1 
CDDAC9 
C393CM 


3A42C1 
FE26 
D293C9 
CD96C9 
きじ 
3242C1 
2178C1 
CDDAC9 
C393Cg 


3A44C1 
B7 

CA93Cg 
CD96C@ 
3D 

3244C1 
2178C1 
CDDAC9 
C393Cg 


9146C1 
2A44C じ 1 
29 
99 
っ E 
23 
S6 
2A42C1 
19 
1190989 
19 
44 
4 引 1 
C9 


FS 
CD89CBg 





dOwT : 


1eft: 


right: 


adY : 


ETa5se: 


1OOP1 : 


100OPp2 : 


10Op3: 


PuSh 


PUSh 
XOT 
OUt 
1 nC 
OUt 
deC 
1d 
add 
1qd 


* 折 『 
Z.Yight 
* 草 " 

Z, UP 

ぼ 和 

Z 

Key 


a ,【 yPOS ) 
23 

mC, Key 
ETase 

a 

( yPOS ) , a 
hl ,pdata 
di SB 

Key 


a, (XPOS ) 
8 

Z,Key 
GTa56 

引 

( XPOS ) , a 
hl ,pdata 
d ip 

Key 


a,〔XPOS ) 
38 

nhC, Key 
GT 456e 

只 
(XPOS ) ,。a 
hl ,pdata 
d1Sp 

Key 


a,(yPOS ) 


a 
Z。Key 
eraSe 

き 
(ypPOS ) 。a 
hl , pdata 
d1SP 

Key 


bC,table 
hl , (YEPOS ) 
hl , hl 

hl 。bC 
Ge。【h1) 

hl 

d。(h1 ) 

hl , (XPOS ) 
hl ,de 

de , 8999H 
hl ,de 

bh 

CC 1 


af 

adr 

bC 
hl , 28H 
hl ,bC 
(td+]1 ) ,hl 
a。2 

af 

a,8 

af 

上 
(C),a 


hl 、9899H 
hl , bC 
b,h 


a=6 then right 


3=6 then UP 


sy POSitlion 1n a 

sy=23 7 

51f Y>23 then key 

sPatterm erYa3e 

s マミ Y+ 1 

35aVe y PO31tliom to a 

iaddress Of patternm data ln hl 
sPatterm display 


5sX POS1t1On 1nm a 
sX= 明 7 

1f X= 朋 then Key 
iPattermn erase 

? XX=Xー1 

3 1 (XPOS ) 


sX POSItiOm 1m a 
sX=38 ツ 7 

1f XX>38 then Key 
s Pat も er era3e 

ほ . も うく て ゴ | 


sy PO31tioOn Im a 
sy= 明 

?1f y=M then Key 
iPatterT era3e 

1 マミー] 


ihl=y POSition /8 


ijhl=X POSItiom / 8 


nVYaM baSe address (green) 
raddreSsS 


5a4VG addreSS Of Vra 陣 


: St COUTter 

Set COunter 

iCleaY a 

?* 1nCTement addresS Of Vram 


rdGCTe 還 Eht addres5s Of vram 


eg 水 ( 





154 
155S 
156 
157 
158 
159 
169 
161 
162 
163 
164 
165 
166 
167 
168 
169 
179 
17 1 
172 
173 
17 4 
訂 
176 


CE2 
CE3 
C9E6 
CBE7 
CgES 
C9EB 
CMEC 
C9EF 


CgFW 
CgF2 
CgF3 
CgFS 
CgF6 
CgF7 
C9F9 
CgFA 
CgFB 
CgFD 
C9FE 
C9FF 
C199 
C191 
C194 
C195 
C1096 


し C197 


C108 
C199 
C19A 
C19D 
C19E 
C111 
C1 12 
C115 
C116 
に 17 
C11A 
C11C 
に まま 
C122 
C123 
C124 
C125 
C126 
C129 
C12A 


C12D 
C12E 
CI 2 ト 


C139 
C133 


2128W9 
99 
229FC1 
E1 


JE92 
F5 
JE968 
F5 


ES 
2199098 
99 

+4 

4D 

E1 

ド 』 

3D 
C2FSCW 
F1 
91099090 
3D 
C2F2CD 
C1 

ES 
2A り FCI1 
CB7 4 
C22DC1 
219949 
99 

ES 

C1 

E1 
1119909 
19 
Cd3E1 CM 


1 
F1 
C9 


919919 
3E92 


td: 


qU1t1: 


d1SD: 


10OPp4 : 


10OP5: 


10O0p6: 


td1: 


qU1t2: 


3 攻 


1d 
POP 
deC 


add 


POP 
POP 
Tet 


1d 
1d 


| 

af 

き 

TnZ , 10Op3 
af 

bC , 9999H 
ZZ , 10Op2 
DC 

hl , (td+1 ) 
5 .h 

nZ ,qUuit1 
hl , 4999H 
hl 。bC 
b,h 

C。1 
de,19H 
hl ,de 
1oop 1 


af 


af 

adr 

hl , pdata 
bC 

hl 

de, 19H 
hl ,de 
de,hl 

hl , 9928H 
hl , bc 


(td1+1).hl 


hl 


8a。2 

af 

a,8 

af 

a, (hl ) 
(C〕)。a 


hl 

h 1 , 9899H 
hl , bc 
b,h 

の 。』 

hl 

af 

8 

nZ, 1OOp6 
af 

bC , 9999H 
| 

nZ, 1OOp5 
bC 

hl 


hl , (td1+1 ) 


6.h 
nZ,quUit2 
hl ,4999H 
hl , bC 

hl 

bc 
hl 
de,19H 
hl ,de 
1OOp4 


hl 
af 


bC , 1 999H 
a , 2H 


|-3 応用 テク ニッ ク 


saddTe5SS Of next 11ie 
COUTteY- 1 
・ COUTter-]1 


addres5 Of Vramm+28h 1n hl 


mext base addresSs 1n bc 


load pattern data 
sPTint patterm data 


slOad pattermn data 


・ 1 mCTe 箇 Eht address Of pattern data 


i5Et palet (blue) 


pop 還 4 


づ / 





177 C135 ED79 OUt (C),a 

178 C137 4 1 IIC b sSGt palet (red ) 

179 C138 3ECC 1d a , 9CCH 

189 C13A ED79 Out (Cc),a 

181 C13C 4 1 nC b St palet (green ) 

182 C13D 3EF9 1d a , 9F8 朋 

183 C13F- ED79 Out (C),a 

184 C141 C9 et 

185 1 

186 C142 9 XPOS : defw g 

187 C144 999 VPOS : defw g 

188 

189 C146 99992899 table: defw 9.49.89,129.169.299,249,289 , 328 ,36g 
C14A 59997899 
C14E Ag9C899 
C152 F9909181 
CI156 499168691 

199 C15A 9991B801 defw 499.449.489.529.569 ,. 689.648,689 ,728 
C15E E9919892 
C162 39925892 
C166 8992A892 
C16A D992 

191 C16C F8B922093 defw 59.899.849.889.929.969 
C179 48937993 
C174 9893C93 

192 * 

193 C178 91919191 pdata: defb 91H,91H,91H,91H、91H.21H,33H, 23H 
C17C 91213323 ' 

194 C189 26272667 defb 26H,27H, 26H,67H, 66H , 66H , 9E2H , CBH 
C184 6666E2C@ 

195 C188 99899989 defb り 9H. 89H, 99H,89H,99H.88H.9CH. 98CH 
C18C 99889CgC 

196 C199 889888gA defb 88H.98H,. 88H, 9AH., 8AH, 4AH , 4BH , 83H 
C194 8A4A4B93 

197 6 

198 C198 91999199 defb 91H,.99H,91H,99H,91H,39H, 93H,33H 
C19C 9@13@9333 

199 C1A 37B7BFBF defb 37H , 9B7H, 9BFH, 9BFH , 9BFH , 9BEH , 32H , 9C8H 
C1A4 BEFBE32Cg 

299 C1A8 8999g899g defb 69H.99H,89H.99H.,89H., 9CH., CBH。 89CCH 
C1AC 899CCBCC 

21 C1BW ECEDFDFD defb り ECH , 9EDH , 9FDH , 9FDH , 9FDH, 7DH , 4CH , 93H 
C1B4 FD7D4C93 


]-J- PCG に よる スク ロー ル 

ここ で は テキ スト 画面 の 逆 ス クロ ー ル だ け を と りあ ば げ ま 
す 。 逆 スク ロー ル の 原理 は 図 1 - 7 に 示す と なり で す 。 リ ス 
ト 1-11 は mstart と mend に それ ぞ れ マッ プ の スタ ー ト ・ ア 
ドレ ス と エン ド ・ ア ドレ ス を いれ て コー ル し ます 。 マップ に 
は , 40 文字 分 も 1 ライ ン と し て , ASCII ユー ド を 入れ て < 
だ さゆ い 。 


|-3 応用 テク ニッ ク 


人 者 本 司馬 。 光 スク ロー ル 


2 4 


但 | 行 ご と に ,」 Mi」。 M2… M。 と な っ て い 
る 。 

① 各 行 を | 行 分 下 へ ずら す 。 

② あ いた 最上 行 を マッ プ か ら の | 行 で う 
め る 。 

③ こ れ を くり 返す 。 










うつ 9 


4 〇 


1 
2 
3 
1 
O 
6 
7 
8 
9 
| 
1 
2 
J 
1 
っ 


ーー ーー ーー ーー ーー ーー 一 一 "一 
品 避 避 = コウ 


ゥ ウトウト ドウ トキ ウ ウト ウゥ 
OOm 所 らら ロー 


CD C ウ 上 トウ 『「 ウ トウ 
ー 一 融 避 ーー) 


Co CO CO COCO CO 


ニニ ニモ ニー の 
の mE の ロウ ら デー 玩 呈 


LR 
Cp =] 


し 999 


C996 
C93 
C99 4 
C997 


CA 
じじ 
C99E 
Cg9F 
C91 1 
Cg12 
C913 
C915 
Cg17 
C919 
C91B 
Cg1C 
C91D 


し 91E 


Cg1F 
Cg2 1 
C22 


C924 
C925 


C928 
C92A 


Cg 2B 
C92D 
C92F 
C931 
C933 
C935 
C936 
C937 
C938 


し 3 作 


C93E 
C93F 


) Cg49 


C942 
C943 
C944 
C946 


C947 
Cg949 





2A47CW 


ES 


1BF33 
21E733 


1E19 
1628 
CS 

ED78 
44 

4D 

ED79 
CBA9 
3E27 
ED79 


EDS5B49Cg 


7 作 
94 
29C1 
7B 
95 
29BD 
し 9 


99D9 
99FB 


| 本 


10OP1 : 


1 OOP2 : 
100P3: 


1OOP4: 


回 Start: 


看 選 Td : 


Or9 


1d 
Pu5h 
1d 
1d 


1d 
1d 
PuUSsh 
1 i1 
1d 
1d 
OUt 
Te5S 
1d 
Out 
POP 
deC 
deC 
deC 
JY 
deC 
Jr 


POP 
1d 
1d 
1d 
OUt 
5 
1d 
OUt 
et 
1 1IC 
1 mC 
deC 
Jr 


1d 
1d 
SUb 
Jr 
Sub 
JF 
Yet 


defw 


defw 


ーーー SLKOULL (PCG) -ーー 


り じ 999H 


hl] ,( 天 Start) 
hl 

bcC , 33BFH 

hl , 33E7H 


葉 』 5 
d , 49 
bC 
a。【C) 
b,h 
C,。1 
(C),a 
4 .b 
a, 27H 
(C〕),a 
bC 

DC 

hl 

d 
nZ, 1OOp3 
a 
nZ,、10OP2 


hl 

bC , 3999H 
d , 49 

a, (hl ) 
(C〕)。a 

4 .b 
a,27H 
(C}),a 
4.b 

hl 

b 

d 

mnZ, loop4 


de , (前 md ) 
a.d 

h 

nZ, loop1 
a,6 

1 

nhZ, 1OOP 1 


9D999H 
り F999H 


Start addresS Of the 香 aP 

sSaVe Start addres3 Of the 箇 aPB 
i9et addreSS Of VrTa 草 (xs=39:y=23) 
i PUt addreSS Of Vra 箇 (x=39:y=24) 


?y COIU 重 1n Ge (COunmter ) 

?X COIUmMeG 1n d (Counter ) 
5aVeG addreSS Of Vra 血 tO bC 
saSCi1 Code jn a 

iPTinmt address 1m bc 


Print 

rattTibute addres5 
attT1iDbUte COde ]1m a (nOYWa1 ,Ta 画 C ず ) 
iPYint 

ilOad addreSSs Of 箇 aP 
iPTint address-1 
slOad addres5s-1 

?X CO1U 枯 G- 1 1nm d 
1f X く > 明 them lOop3 
sy COlIUme- 1 1m e 
iif Y く > then loop2 


iload put address Of Vra 箇 tO hl 
sbaSe addres5 Of Vra 田 

?X COIUWE 1n d (counter ) 

(PUt addres5s Of Vra 血 ) im a 

s PT imnt 

attrTibute address 

attYibUte COde }1m a (TOY 男 31 , Fa 箇 C9 ) 
iPYimnt 

text addreSsS 

i PUt addreSS Of Vra+1 

: 可 Gt addre55 Of Va 血 +]1 

5X COlUme- 1 

i1f X く > 明 then 1Oop4 


shigh addres5 Of emd Of the map 


1f a< く >9 them 1OOp1 


一 gsgr 
/-/ LINE こ CIRCLE 
_g-3 PAINT 


に 当 
と 
ン 
ュ ゾ / 
フ 
ウ 
ス 


本 章 で は , BASIC に ある よう つ な LINE や 
PAINT を 作 つ て み ま す 。 ご これら は , プロ グラ 
その も の より も アル ゴリ ズム が 重要 な の で , 
BASIC で 記述 し て 例 を 示し , それ を マシ ン 語 
化す る よう に し ます 。 な お , 科 単 お だ め ブ ラフ 
フィ ッ ツク の モー ド は 640x200 ド ッ ト に 固定 し 
よ す 。 





4 





PSET は グラ フィ ッ ク の 最も 基本 的 な も の で あり , 最も 
ハー ドウ ェ ア に 近い も の と 言え た ます 。 し た が っ て , この ルー 
チン さえ ぇ あれ ば , 後述 する LINE や CIRCLE な と ど を 他 機 種 
へ 移植 する の は 簡単 な こと で す 。 ま た , CP / M 上 の 高級 
言語 で も グラ フィ ッ ク を 使え る よう に な り ま す 。 


〆-|-| アル ゴリ ズム 

PSET ルー チン で は , まず 始め に 絶対 座標 か ら 6 実 際 に 書 
き 込 む VRAM の アド レス を 求め な けれ ば な り ま せん 。 と こ 
ろ が . X 1 は PC-8801 や FM-7 と VRAM の 並び か た が 暴 
な り ,. この 変換 は これ ら の マシ ン よ り 少 々 複雑 で す 。 

まず , 与え られ だ XY か ら 61INT(X/8), INT(Y/8) と し 
て キャ ラク タ 座 標 を 求め ゆま す 。 こ れ よ り , 左上 端 か ら の オフ 
セッ ト 値 は , 













で 求め ゆら れ ま す 。 この 式 は 図 2-1 の 斜線 部 の よう な アド レス 
を 求め る も の で す 。 後 は Y 方 向 に &H800 ずつ 増加 し て い 
る の で , アド レス を 求め る 式 は 次 の よう に な り ま す 。 

) 






INT(X/8) 二 INT(Y/8)*80 二 (Y MOD 8) *&&H800 





この 式 か ら 求 ま っ た 値 に &H 4000 を 加え る と BLUE の 
VRAM, さら に &H 4000 を 加え る と RED の VRAM, ミ 
ら に 加え る と GREEN の VRAM の アド レス に な り ま す 。 
この 式 が 正しい か どう か は , リス ト 2-1 で 試し て みて 〈 だ 
さい 。 


2-| PSET 


者 時 定 腔 VRAM の アド レス 


8 ョ ッ ト 640X200 ド ッ ト ( 値 は 16 進 表示 ) 


に 記 6 2 62 8 8 n 脱 9 0I 3 0 8 叶 1 8 | 0002 SH 








002 
1000 1 002 | 
1800 1802 
2000 2002 
2800 2802 し 〉 
3000 3002 
3800 3802. 


0850 0851 0852 089E 089F_ 
050 105 1052 0E 109F 


p いび 


| 378| 3782 「 37CE | 37CF 
3F80 -3F8L 3F82 3FCE | 3FCF 













胃 HH 
da は 





1999 INIT : WIDTH 89 : CLS 4 
1919 DEFINT A-Z 

192 : 

1939 LABEL "LOOP" 

1946 INPUT "X9.Y9":X9、Y9 


1950 IF (X9 > 639 OR X9 < く 9) OR (Y9 > 199 OR Y9 〈 く め ) 
THEN PRINT "Error !" | GOTO "LOOP“ 

196D VRAMADR=INT(X9/8)+INT(Y9/8)x89+(Y9 MOD 8)x&H89V 

1979 OUT VRAMADR+&H49909.,.&HFF ・ BLUE 

1980 0UT VRAMADR+&H8999.9 ・ ' RED 

1999 OUT VRAMADR+&HC90909.0 ・ GREEN 

1199 GOTO LOOP“ 





絡 対 座 標 か ら VRAM アド レス を 求め る ブロ グラ ム は ば は, 一 
見 複雑 を う で す が , 以外 に 簡単 に マシ ン 語 に で きま す 。 その 
プロ グラ ム が リス ト 2-2 で す 。bc レ ジス タ に XX 座標,de 


4 コ 





1 
2 
J 
は 
り 
6 
7 
8 
9 


し じ め 990 


C990 
C9092 
C994 
C906 
C じ 098 
C99A 


じゅ 9 し 
C99D 


C90E E 


C919 
C91 1 
C912 
C91 4 
C915 
C916 
C917 
C918 
C919 
C91A 


C91B 
C91C 
C91D 
Cg1E 
C91F 
C921 
C922 


C923 


レジ スタ に Y 座標 を 入れ て calcva を コー ル す る と hIl レジ 
スタ に VRAM アド レス を 入れ て 返っ て きま す 。 


? = ニニ - CalC.。 Va 大 addTGSS --- 
6 entry bC := X 
1 de := ツ 
9 Teturn5 hl < く - Vra 枯 addreS5 
1 OOdifieSs af ,bC,de,hl 
OT9 9C999H 
CalCVa: SF1 b 
Tr 「 
ST 1 b 
名 C 
ST1 b 
前 9 の ?・ bC:=1nt(xXM/8) 
1d a,6 
PUSh af 
and 9F8H 
1d EE,3 ・ de:=jint(y9/B8) テ 8 
POP af 
and 7 、 a:=yM mOd 6 
eX de.hl 
add hl ,hl 。 療 の 
PuSh hl 
add hl ,hl ? 状 4 
add hl ,hl ? 基き 
POP de 
add hl ,de ? 甘 ] 昌 
6 ・ hl:=jint(y9/8) テ x80 
add aa 
add a.a 
add a,3 
1d e,M ・ de:=(yV moOd 8)x&H899W 
add hl 、de 
add hl , bC ・ hl:=inmt(x9/8)+int(y9/8 ) テ 80 
+(y mOd 8)xX&h899 
ret 


テテ 
ーー 


リス ト 2-3 は PSET ルー チン の 本 体 で す が, し 
ッ ト を ON まだ は OFEF す る た だ ため に プロ グラ ム 自 身 を 書き 換 
ぇ える と いう 婦 (?) な テク ニッ ク を 使っ て いま す 。 ビット 
の ON, OFF に は SET, RES 命令 を 使っ て いま す が , これ 
ら の OP コー ド は 図 2-2 の よう に な っ て いま す 。 た だ た だし, 
の 図 は SET, RES 命令 の 一 部 で す 。 こ で は @e レジ スタ に 
VRAM の デー タ を 入れ て いる の で , この レジ スタ に 対し て 
ビッ ト の セッ ト , リセ モット を 行い ます 。 ここ で 何 ビ ッ ト 目 を 
操作 する か と いう と , これ は 湊 の よう に 双 座 標 か ら 求 め ら れ 
すす 


に 
に 


ュー 


ュー 


OO 


トウ ウト ウ 「 ら ドウ 


CO ~ こ J の ) 


CO て C ら CO『 つ トド 
トゥ っ 吾 中 


mm て っ ら (この の の らら 
呈 らら ど こ この の 選 らら 


中 選 必 所 に 』 


に ーー 
こ J 


キー キー 
(DO 


CTCOTI 加 


C り 99 


C1099 
C1909 


C193 
C195 
C10/ 


C108 


C106 
C19C 
C119 
じ 113 
C114 
C116 
に 417 
C11A 
に 1 も 


C11D 
し 1 1E 
C11F 
C121 
C124 
8 
C12A 
C12B 
し 1 2 し 
C1 2D 
だ 12E 
C13M 
C133 
C134 
C136 


じ 139 
し し の し 
C13D 
C13E 
に 13F 
C141 
C144 
C147 
C148 
C149 
C14B 
C14E 
に 1 ら 51 


C398C1 


り 9990 
り 9009 
96 


ED4B93C1 
EDSB9SC1 


217F02 
B7 
ED42 
D8 
21C7/0 
ED52 
DS8 


79 

2 
E607 
327BC1 
CD99C9 
3A7BC1 
87 

87 

87 

FPS 
PF6Cd 
3272C1 
F 1 
F683 
327 7 し 1 


1190949 
19 

11 

4D 
ED58 
CDS8C1 
1190949 
19 

44 
EDS8 
CD61C1 
119940 
19 


X MOD 8 


a1CVa 


X9: 
yM: 
CO1OY * 


PSet 
PSet1 : 


PSet2: 


PSet3: 


で U 


OrT9 
JP 


defw 
defw 
defb 


dU 


1d 
1d 
1d 
OY 
SbC 
Yet 
1d 
SbC 
Yet 


1d 
CP1 
and 
1d 
Ca 1 
1d 
add 
add 
add 
Pu5sh 
OY 
1d 
POPD 
OY 
1d 


1d 
add 
1d 
1d 
1 
Ca1 1 
1d 
add 
1d 
1 1 
Ca1 1 
1d 
add 


"PSet" 
(x ) 
(y ) 
(CO1 Or ) 


SubrOut1ine 
GTtYy 


ImOdifieS 
9C999H 


9 り C10909H 
PSet 


900909H 
り 99009H 
6 


$ 


DC , (x) 
de, (yy) 
hl ,639 
3 
hl , bC 


選 
hl ,199 
hl , de 
人 


ds に じ 


7 

( XmOod8) ,a 
CalCVa 

8 , ( xOd8 ) 
a, 3 

aa 

a。4 

af 

9C3H 
(Set)、a 
af 

83H 
(QYeSet)、a 


de , 4990H 
hl ,de 
b,h 

C。』 

E 。 (て C) 
Dlue 
de,49909H 
bh 
GE。【C) 
Ted 

de , 4999H 
hl .de 


af 、bC.,de。 


せ 


メー| PSET 





= POIt XX 
= POint y 
= dOt CO1or 
hl 


a:=CP1(x9 OO 8) 
Shift left 3 bitS 


OY 11999911b 
OY 19999911b 


blue 


Ted 


TETII 


4 っ 


4 


S9 
91 
61 
62 
63 
64 
65 
56 
67 
68 
69 


7 1 
2 
7J 
74 
75 
76 
77 
78 
79 
9 


892 
83 
84 
85 
86 


ュ は 
EDS8 
C36AC1 


3A97C1 
CB47 
2817 
1819 
3A97C1 
CB4F 
289E 
1807 
3A 7 し 1 
CB57 
2895 


CB 
EDS9 
C9 
CB 


EDS9 
に 9 


本 層 丈 。 SET, RES 


ニモ ニッ ク 





blLue: 
Ted : 


TeGeT1: 
Setblit: 
Q5Set: 


YeSDblt: 
(YeSet: 


X 四 OO8: 


」 


1d 
1 n 
JP 


1d 
bit 
Jr 
JF 
1d 
bit 
JT 
J 
1d 
bit 
Jr 


defb 
defS 
Out 
ド et 
defDb 
defS5 
Out 
Tet 


defS 


b,h 
ら 。 (で C) 
9reeT 


あま 。 も CO は OY ) 
り 、a 

ヶ Z,YeSbit 
Setbit 
a。(CO1OT ) 
1 。a 
Z。『eSDb1 も t 
5 も tbit 

a, (CO1OT ) 
2。4 

ヶ ,。YeSbit 


り CBH 
] 

(C) ,e 
9CBH 


1 
(C),e 


命令 の OP コ ー ド 


? St 1。6 


・ YeS TI1,e 





〆-1 PSET 


と ころ が 。 VRAM の ビッ ト の 普 び 方 は 図 2-3 の よう に な 
っ て お ぢ お り , 図 2-2 の ビッ ト 指 定 と は 送 に な っ て いま す 。 を その 
た め 。CPL 命令 で 1 と 0 を 反転 し て いま す 。 





この ルー チン で は , 最初 に 座標 値 の チェ ッ ク を 行っ て いま 
す が , 色 コ ー ド (color) に つい て は チェ ッ ク し て いま せ 
ん 。 色 コー ド は 下位 3 ビッ ト だ けし か 見 て いな い の で , だ と 
ぇ えば, 81 H と いう 値 を 入れ て も 青 の ド ッ ト を 打ち ます 。 

この PSET ルー チン に は 。 ワー ク ・ エ リプ の XX0。 YO に 
座 酔 を セッ ト し て "pset まだ た は "pset 1 を コー ル す る , bc レジ 
スタ に XX 座標 , de レジ スタ に Y 座 標 を 入れ て pset 2? を コー 
ル す る 。 さら に 座標 値 の チェ ッ ク を し な い "pset 3 コール 
する と いう 3 種類 の エン トリ ー ポ イン ト が あり ます 。 後述 す 
る LINE,。 CIRCLE, PAINT で は それ ぞ れ この ラベ で ベル 名 で 
ュー ル し ます 。 


人 4/ 


2-2 |LINE と CIRCLE 





ここ で , 紹介 する LINE は BASIC の LINE 命令 と は 時 
な り , ボッ クス を 描い た り 塗 つぶ し た りす る こと は で きま せ 
ん 。 ま だ, 色 も タイ ルウ パタ ー ン で は な く 〈 1 色 で 指定 し ます 。 
CIRCLE も 非常 に 単純 な も の で , 衝 円 や 円 弧 を 描い た りす 
る 芸当 は な く 〈, 単に 円 を 描 《 だ け で す 。 


e-〆-| LINE 


2 点 の 座標 が 与 た られ た とき に , を の 間 を 結ぶ 。 つ まり 線 
分 引く 《 に は いく 《 く つか の 方 法 が あり ます 。 い ちば ん 簡単 な の 
は , 直線 の 方 程 式 , 





の 24, b を 


(メーXn) 


2 





か ら 求 め 、 x の 値 を xi か ら 6 X2 ま て 変化 る させ Y の 値 を 求め 
な が ら 点 を 打っ て いく 《 こ と で す 。 ところが, これ で は 求 ま っ 
た 値 は ふつ う 実 数 値 と な り , 画面 の 座標 の よ うに 整数 値 に な 

6 と ょ は めった に あり ませ ん 。 に の た ぬ 。、 ご の プア ル ゴリ ズム 
と お り に マン ン 語 化す る に は 実数 演算 が 必要 に な り , 大 変 面 
倒 に な り ま す 。 

と こ に で 人 居 う 9 ナル ゴリ ズム 人 ほ DA に よる も の で 。、 これ だ 
整数 演算 の み で LINE を 引 《 こ と が で きま す 。DDA と いう 5 
の は デジ タル 微分 解析 法 (Digital Differential Ana- 
lyze) の 略 で 線形 微分 方 程 式 を 解く た め に 微積分 を アナ ログ 
計算 機 で 行う 基 ほ な っ た アル ゴリ ズム で す 。DDA に よる ア 
ル ゴ リ ズム に は XX 方 向 , Y 方向 の うち , 大 きい ほう の 座標 は 


1 ずつ 変化 きせ , も う 一 方 の 座標 は 真 の 値 に 最も 近い 整数 値 
を 選ぶ 「 単 純 形 DDA] と x, 両方向 に DDA 演算 する 
[対称 形 DDA] が あり ます 。 こ こ で は 前 者 の 単純 形 DDA 
を 使い ます 。 

点 (X1, YI) か ら 点 (X2, y2) へ 線 を 引く 《 こ と を 考え ま 


す ( 図 2- 4 )。 こ の 図 で は , xz2 >Xl, y2 >yi で , な お か 


つっ つ ガイ x>4 オ yY で すか ら 。 X に つい て は 単純 に 1 ずつ 加え て 
いき ます 。 7 座標 の 変化 は 次 の よう に し ます 。 





' (x, 2) 





4y(ys-yi) 









(xn, y1) 4x( x>-xi ) 


まず 。 EE と いう 変数 を 用 意 し , x 座 標 が 1 増加 する ご と 
に 4y を 加え ます 。 こ れ が 4X よ り 大 きく な っ た だら 67 座 標 
を 1 増加 る きせ,。 EE か ら 4x を 引き ます 。 こ れ を X1 三 X2 
に な る まで 繰り 返し ます 。 

これ まで は , 4x> 4y の 場合 の 説明 で し た が , 2 フ x く 4 
y の 場合 は 。 y に つい て 1 ずつ 増加 る させ て X に つい て は 同様 
の 演算 し て 求め ます 。 ま だ た だ, xz2 く xi や y2 ぐ y1 の 場 
合 は 。 1 加 ん を る と ころ を 1 減じ れ ば よい で し ょ 2。 

以上 , 見 て きた だ たよ うに 単純 形 DDA を 使っ だ LINE ルー チ 
ン で は , まず 2 点 の 座標 か ら 場 合 分 け を し ます 。BASIC で 
考 い た プロ グラ ム を リス ト 2-4 に , マシ ン 語 の プログラム 
を リス ト 2-5 に 示し ます 。 


2-2 LINE と CIRCLE 


49 





1990 
1910 
1920 
1939 
19409 
1950W 
1969 


INIT : WIDTH 89 : 
DEFINT A-Z 


CLS 4 
INPUT "XS,YS":XS。YS 
INPUT "XE。YE" :XE。YE 


DX=ABS(XE-XS) : DY=ABS( YE- YS ) 





ら O 


1979 SX=SGN(XE-XS) : SVY=SGN( YE- YS ) 
1989 IF DX < DY 
THEN SWAP XS,YS : SWAP XE.YE : SWwAP DX,DY : SWAP SX.SY : FLAG=- 1 
199 : 
1199 EE=DX/2 
1119 LABEL"LOOP" 
1 12 IF FLAG THEN PSET( YS, XS,7) 
ELSE PSET(XS. YS,7) 
1 139 IF XS=XE THEN END 
1 1 49 XS=XS+SX 
1 159 EE=EE+DY 
1169 IF EE>=DX THEN EE=EE-DX : YS=YS+SY 
1179 GOTO "LOOP" 
1 6 
2 1 ーーー SubTOutime ']1ime' --- 
3 5 
44 1 entry ( XS ) = Start POint XX 
っ 1 1 (yS ) = Start POint y 
6 1 (Xe ) = emd PBOint x 
『。 6 (ye ) ・= end POint y 
8 6 (COlor) := dot color 
* 胃 Odifies af ,bC,de,hl 
1 1 
11 C198 PSet eqU 9C198H 
12 C193 XM eqU 9C193H 
13 C1C y9 GU 9C19CH 
14 C17 COlor eqU 9C197H 
15 1 
16 C2969 Or9 9C2909H 
17 C299 C316C2 JP 1 ime 
18 6 
19 C293 99099 XS : defw Mg 
2 C2095 90999 VS:* defw 中 
21 C207 9999 XG: defw g 
22 C299 9999 Ye: defw g 
23 6 
24 C29B 9999 dX: defw Mg 
25 C29D 9909 dy: defw M 
26 C29F 99 ee: defw g 
27 C21 1 9999 SX・* defw g 
28 C213 90999 SYy: defw @ 
29 C215 99 fl : defb g 
1 1 
31 C216 219199 1 ime: 1d hl , 1 ? SX:=1 
32 C219 2211C2 1d (Ssx) ,hl > SY:=1 
33 C21C 2213C2 1d (Sy ) ,hl 
34 C21F AF XOT き ? 1:=M 
JS C229 3215C2 1d (fl1),a 
35 C223 2A97C2 1d hl , (xe) > dX:=abS (Xe-XS ) 
37 C226 ED5B93C2 1d de , (XS ) 
38 C22A ED52 SDbC hl ,de 
39 C22C 3997 JF nC,1ine1l ゎ 1f Xe く <xS then 
49 C22E 91FFFF 1d bC,9FFFFH * SX:=ー-1 
41 C231 ED4311C2 1d (SX) 。bC 
42 C235 CDF4C2 linel: call abs 
43 C238 220BC2 1d (dx ) 。hl 
44 C23B E5 PuSsh hl 
45 C23C 2A99C2 1d hl , (ye) > dy:=abS(yYe-yS ) 


人 





46 
47 
48 
49 
SM 
S 1 
52 
DJ 
9 人 4 
9 り 
S6 
57 
58 
ら 9 
69 
6 1 
652 
63 
64 
65 
66 
67 
68 
69 
79 
71 
2 
73 
74 
た 
76 
『 ま 」 
78 
す 
80 
8 1 
82 
83 
84 
85 
86 
87 
88 
89 
9M 
91 
92 
93 
94 
99 
96 
97 
98 
りり 
1909 
19 1 
192 
193 
194 
195 
106 
107 
108 
199 
119 
111 
112 
113 
114 
全 
116 
117 
118 
119 
120 
121 
1 メメ 


C23F 
C243 
C245 
C247 
C24A 
C24E 
C25! 
C254 
C255 
C257 
C259 
C25C 
C260 
C263 
C267 
C26A 
C26E 
C27 1 
C275 
C278 
C27C 
C27F 
C283 
C286 
C28A 
C28D 
CZ91 
C293 
C296 
C299 
C29B 
C29D 
C2A9 
C2A3 
C2A7 
C2AA 
C2AB 
C2AD 
C2AE 
C2B1 
C2B5S 
C2B8 
C2BB 
C2BF 
C2CW 
C2C2 
C2C4 
C2C7 
C2CB 
し に の し し 
C2CF 
C2D2 
C2D6 
C2D7 
C2DA 
C2DE 
C2DF 
4 
C2Ed 
C2E6 
し ぶし 3 
C2ED 
に も も 
C2F 1 
C2F3 


C2F4 
し 々 ドウ 
し 2 ド じ / 
C2F9 
C2FA 
C2FB 
に る Z ド し 
C2FD 
CZ2 ト E 
C2PF 
C39 り 


ED5B95C2 
EDS2 
3997 
91FFFF 
ED4313C2 
CDF 4 じ 2 
229DC2 
D1 

ED52 
383D 


2A9BC2 


EDS5B9DC2 
229DCZ2 
ED539BC2 
2A93C2 
EDSB95C2 
2295C2 
ED5393C2 
2A97C2 
EDS5B99C2 
2209C じ 2 
ED5397C2 
2A11C2 
EDSB13C2 
2213C2 
ED5311C2 
SEM 1 
3215C2 
2A9BC2 
CB2C 
CB1D 
229FC2 
2A93C2 
ED5B95C2 
3A15C2 
B/ 

289 1 

EB 
2293C1 
ED539CC1 
CD98C1 
2A93C2 
ED5B97C2 
B7 

EDS2 
282F 
2A93C2 
ED5B11C2 
1 9 
2203C2 
2A9EC2 


EDS5B9DC2 - 


19 
229FC2 
ED5B9BC2 
B7 

EDS2 
38BD 
229FC2 
2A9S5C2 
ED5B13C2 
1.9 
2205C し 2 
18AD 

C9 


7C 
FEG0 
3806 
2 むか 
567 
7D 
2F 
6F 
23 
B/ 
C9 


っ づき 


] i me2: 


113 


1 全く 


を 


leX1t・ 


ab5 : 


abSeX: 


de, (YS ) 
hl ,de 
nmC, 1 ime2 


bC , 9FFFFH 


( Sy ) , bC 
abS 
(dy ) , hl 
de 

hl ,de 
| 

hl 。 (dxX) 
de, (dy ) 
(dy ) , hl 
(dX ) ,。de 
hl , (XS) 
de , (YS ) 
(ys ) , hl 
(xS ) 。de 
h 1 。 (Xe) 
de 。 (ye)} 
(ye) ,hl 
(Xe) .de 
hl , (SX) 
de,(5y) 
(5y ) ,hl 
( SX ) ,de 
a , 1 

(f1 ),a 
hl , (dX ) 
h 

1 
(ee ) ,hl 
hl , (xS) 
de , (YS ) 
a,(f1 ) 
a 

が 
de,hl 
(x9) ,hl 
(y9) ,de 
PSet 

hl , (XS ) 
de, (Xe) 


d 

hl ,de 

ヶ ァ ,lexXit 
hl , (XS5 ) 
de,(SX) 
hl ,.de 

( xS ) .hl 
hl , (ee ) 
de, (dy) 
hl ,.de 

( ee) .hl 
de,(dX) 
a 

hl ,de 
C.15 
(ee) .hl 
hl .(yS) 
Ode。 (5Sy) 
hl 、de 
(y5 ) 、hl 
9 


ah 
89H 
C,abSsexX 


還 
還 


F] 
」 


2-2 LINE と CIRCLE 


if ye<yS then 


Sy:=ー1 


hl : =abS(Ve-y5 ) 


de:=abS (Xe-XS ) 


if xd<yd then 


再 
L」 


加 
事 


還 
加 


円 
事 


fl:=l 


ee : =dX/2 


if f1 く >9 t 


E15Se 


Cal 1 pSet 


1f x5S-Xxe=9 then Yeturnn 


Swap dX,dy 


5SwaP XS,YS5 


5SwaP XirYE 


SwaD SX,.SY 


he 
X 明 :=y5 
Y:=X5 


Xi: =X5 
y9:=yYS 
(x9,y0) 


XS5:=X5+SX 

EE:=ee+QOY 

1f ee>=dx then 
OoOto 15 

EE: =Ge-dX 

YS5:・=YS+SY 

OttoO 15 

hl :=abs(h1 ) 

CarTy:=M 


り 1 


つど 






e- と - CIRCLE 


円 を 描く に も いろ いろ な 方 法 が あり ます 。 実数 演算 を 使っ 
て も 良い な ら 円 の 方 程 式 , 











か ら , 





c し て , x の 値 を Tr か ら ーr ま で 変化 きせ な が ら 求 め る 方 法 
が あり ます 。 また, 媒介 変数 2 を 使っ て 円 周 上 の 点 を 回 転 
8& せ な が ら 描 いて いく 方 法 $6 も あり ます 。 こ の 方 法 で 円 を 描く 
場合 , 原点 を 中 心 と し た 点 Pi を 左 回 り に 2 だ け 回 転 き せ 
だ 点 Pi+」 は 








Xi+1 三 Xi*COS 9 一 yi・ sin の 






yi+1 デ Xi・SIn の 十 Yi・ cos の 





ほし て 求め られ ます ( 図 2-5)。 


電影 護 際 円 の 座標 値 





ここ で 2 が 微小 な 6 ば , 





Sin の 寺 の 、 cos の 主 ] 





と な り , これ より , 






Xi+1 デ デメ ュー の Yi 





yi1 三 の Xi 十 Yi 


と な り ま す 。 と ころ が この 近似 は 意外 に あら っ ぱ ぽく この 式 か 
ら 6 円 を 描こ うと する と , 半径 が だ ん だ ん 大 きく なり , うす ま 
き 状 に な っ て し まい 円 に は な り ま せん 。 そこ で この 誤差 を 補 
正す る た め に , 第 2 式 の xi を xiri に 置き 換え ます 。 結 
局 。 式 は 次 の よう に な り ま す 。 







Xi+1 デ Xi ュー の Yi 






Yi+1 三 の xi+1 十 Vi 


これ を 1 周 す る まで 繰り 返せ ば よい こと に な り ま す 。 こ こ で 
2 の 値 の 決め 方 で す が , 2" と すれ ば マシ ン 語 で も 乗算 を 
せ ず に , シフ ト 演 算 だ け で で きま す 。 

リス ト 2-6 は この 方 法 で 円 を 描い た も の で す 。 の の 値 
(リス ト 中 で は 変数 E) を 2- ( 奴 ) に し まし た 。256 て 割 
る と いう の は マシ ン 語 で は 簡単 に か け ま す (符号 な し の 場 
公 )、 たとえば, de レジ スタ の 値 を 256 て 割る ブ プログ ラム は 
次 の よう に な り ま す (小数 部 は 無視 ) 。 









この プロ グラ ム で は , 座標 原点 が (0, 0) で は な く 〈, 
(x 0, y 0 ) な の で 1200 行 で 座標 変換 を し て いま す 。 おま 
た 。X 1 の 640 x 200 ドッ ト ・ モ ー ド で は 画面 の 縦横 比 ( ア 
スペ クト 比 ) が 約 X : マニ 1 : 2 な の で , 1200 行 で は この 
こと も 考慮 に 入れ て いま す 。1070 行 で は BASIC の CIR 
CLE 命令 の 半径 が Y 方 向 を 基準 に た っ て いる だ め 半 委 R を 
2 倍 に し て いま す 。1110 行 の ルー プ 回 数 は 経験 値 で す 。 こ 
の ブログ ラム を 実行 し た 後 , BASIC の CIRCLE 命令 を 実行 
し て みる と は ほ ば 重なる こと が わか る と 思い ます 。 

この プロ グラ ム を この まま マシ ン 語 化し て も いい の で す 
が 。 も う 一 歩 高 速 化 の た め に 工夫 し て み ま し ょ う 。PC-8801 


2-2 LINE と CIRCLE 


ら づ 


や MSX な ど で CIRCLE 命令 を 実行 する と , 同時 に 8 ドッ 
ト ず つ 点 を 打っ て いま す 。 これ は 図 2-6 の よう に , 円 の 対称 
性 を 利用 し た も の で す 。 ま た 半径 の 小さ る な 円 の 場合 , 式 で 求 
め た Xi と Xi 。 Yi と YiH1 が 同じ 値 に な っ て し まう 
こと が 多く な り ま す 。 そこ で 前 に 求め た 座標 値 と 新 し 〈 求 め 
た 座標 値 が 一 致し て いれ ば 何 も し な い , と いう よう に し ま 
すず 。 





P 4(-x,y) ・】 い Pi(x,y) 
Ps(x,-y) 


INIT : WIDTH 89 : CLS 4 


INPUT_ "X0.YO":X0、YO 
INPUT "RADIUS":R 
INPUT "COLOR" iC 


E ビ =1/256 
= ド R+ ド 
Y= り 
LOOP=@ 


WHILE LOOP < 1616 
GOSUB "pset" 
人 = ニーE ビ ※Y 
Y= ェ ビ ※X+Y 
LOOP=LOOP+ 1 
WEND 
END 


LABEL. "pset" 
XT=XO+X : YT=YO+Y/2 
PEI (KT。YWT。 し ) 
RETURN 





2-2 LINE と CIRCLE 


以上 の 2 点 を 加味 し た も の が , リス ト 2-7 で す 。 こ れ を や を マ で マ 
シン 語 化 し た の が リス ト 2-8 で す 。 ここ て で 注意 し て は ほしい の 
が 。 座標 値 を 計算 する 式 は 整数 演算 で は な く 〈《, 固定 小数 点 演 
算 で ある と いう こと で す 。 も と も と 乗算 部 分 は 小数 点 以下 の 
婦 分 で あり , これ が オー バー フロ ー し たと きのみ (キャ リー 
フラ グ が 立っ た と きのみ ) intx', nty' の 値 が 変わ っ て いく 
か ら で す 。 





リ 人 ト 2- 7 


1999 INIT : WIDTH 89 : CLS 4 


1919 : 

1929 INPUT "XO.YO"iXO,YO 

1939 INPUT "RADIUS"iR 

1949 INPUT "COLOR" iC 

1959 : 

1969 盛 =1/256 

1979 X=R+R : Y=M 

1989 XB=X  : YB=Y 

1999 LOOP=9 

1199 : 

1119 GOSUB "pset“" 

1128 WHILE LOOP < 202 

1 139 X=X-E%Y 

1 1 49 Y=E※X+Y 

1159 LOOP=LOOP+ 1 

1160 GOSUB "CommPare" 

1179 IF FLAG=1 THEN 1196@ 

1189 GOSUB "pset" 

1199 wEND 

1299 END 

1219 : 

1229 LABEL "Compare" 「 

1239 IF INT(X)=INT(XB) AND INT(Y)=INT(YB) 
THEN FLAG=1 : RETURN 

1240 XB=X : YB=Y 

1259 FLAG=9 

1269 RETURN 

1279 : 

1289 LABEL "pset“" 

1299 XT=XO+X : YT=YO+Y/2 

1399 PSET (XT ,YT 、C) 

1319 XT=XO+X : YT=YO-Y/2 

132@ PSET (XT ,YT,C) 

133g XT=XO+Y : YT=YO+X/2 

1349 PSET (XT 。YT ,C) 

1359 XT=XO+Y : YT=YO-X/2 

1369 PSET (XT ,YT,C) 

1379 XT=XO0-X : YT=YO+Y/2 

1380 PSET (XT ,YT,C) 

139 上 XT=XO-X : YT=YO-Y/2 

1 49M PSET (XT .YT,C) 

1419 XT=X0-Y : YT=YO+X/2 

1 42 PSET (XT,YT,C) 

1 43g XT=X0-Y : YT=YO-X/2 

1 449 PSET (XT.YT.,C) 

1459 RETURN 


らら 


(の ココ の 思い OO 加 の oo=- の CE CO うう 呈 


ト つ ト つ ー 
= 一 吾 


トウ O ら りう 
We CD トウ 


CO F ウ 『 ウ ウト ウト ドウ 
SR (DD コ の 品 


Co CO CO の 
必 CO ト う 一 


C119 
C197 


じ 3909 
Cd 


Cd393 
C395 
C397 


C399 
C39B 
C39C 
C39E 
Cd3169 
C31 1 


Cd13 


C313 
C316 
Cd1 7 
C319 
C31A 


35 Cd31B 


C31D 
C329 
C322 
C323 
C326 
Cd2A 
Cd32D 
C32E 
C32F 


) し 331 


C332 
C335 


C337 


C33A 
C33D 
Cd33E 
C33F 
C34 1 


) Cd342 


C345 
C349 
C34B 
し 34E 
CSS 1 
C353 
C3S6 
Cd3S7 
Cd3S9 


C35A 


C35E 


| し さら F 
C36 1 
じ 363 
C366 





C313C3 


499 1 
6499 
4B99 


2199C3 


AF 
9 り 69A 
ず 7 
23 
19FC 


CD7FC3 


96CC 
CS 


2A99C3 
EDSB9EC3 
3A19C3 


329BC3 
EDSB9EC3 


EDSA 


229ECd 
CDSACd 


3993 


CD7FC3 


C1 
19C9 
し 9 


EDS5B11C3 


B7 
EDS2 


299C 
2Ag ウ 9C3 
EDSB9CC3 
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PSet2 
CO1 Or 


車 


1 

XO: 
YO: 
rad: 
1TmtX: 
fracX: 
WOTKX: 
1 mty: 
fracy: 
wOTKYy: 


重 
Ci1TCle 


CIrwrKk: 


C1OOP: 


TXt: 


> 1f 


1Om9CP: 


GU 
U 


OT9 
JP 


defw 
defw 
defw 


defs 
defs 
defS 
defS 
defs 
defS 


EdU 


1d 
XOY 
1d 
1d 
1 nC 
dJnZ 


Cal1 
1qd 
Pu5h 
1d 
1qd 
1d 
1d 
1d 
1d 
add 
1d 

5 DC 
1d 
1d 
1d 
1d 
1d 
add 
1 d 
1d 
adC 
1d 
Call 
JY 
Cal 1 
POP 
dJnZ 
et 


1d 
OY 
SbC 
JY 
1d 
1d 


entry 


前 Odifies 


・ SUubrOUtine "CirCle' --- 


( XO ) = Cemter BEBOint xx 
( YO ) = Cemter POjnt y 
(ad ) ・= Tad1iu5 

(CO1OY ) = dOt COlOr 

af ,bC,de,hl 


9C1 19H 
9C107H 


9C3909H 
CirCl1e 


2 
199 
75S 


やみ トウ 一 トウ トウ ーー ドウ 


hl , 1ntX ? WOTK 〈 く - ZerO Clear 
a 

b,19 

(hl),.a 

hl 


CIYwTK 


CiIYC1 

b ,294 

bC 

hl , (intX) 
de, (inty ) 
a,(fTaCy ) 
b,e 

e,d 

d,9 * YY 若 選 
a,b 
(fracy),a 
hl ,de 
(1ntx) ,hl 
a。(fTaCX ) 
b, 1 

] , h 

h, り 3 X 基 選 
a,b 
(frTaCx}),a 
de, (jinty ) 
hl ,de 
(1nty) hl 
10On9CP 
nhC, neXxt 
Ci1TCI 

bC 

C1OOP 


(wOrkKy=inty) arnd (workx=intx) then cy flag off 


elSe cy flag on 


de ,(wOYKy ) 

a 

hl ,de > 1mty = wOrky ? 

nZ,nOteq1 1 nmO,then goto "exit" 
hl (intx) 


de,(wOYKX ) 


ウブ トバ 





74 
75 
76 
『 まり 
78 
79 
809 
8 1 
82 
83 


85 
86 
87 
88 
89 
99 
91 
92 
93 
94 
95 
96 
97 
98 
99 
199 
19 1 
192 
193 
194 
195 
196 
197 
198 
199 
119 
8 

112 
13 
| 114 
115 
116 
| 上 きす 
118 
119 
120 
121 
| 122 


| 123 
| 124 


125 
126 
| 127 
| 128 
129 
139 
131 
132 
133 
134 
135 
136 
137 
138 
139 
| 14 
141 
142 
143 
144 
145 
146 
147 


C36A 
C36B 
C36D 
CdG6F 
C372 
C さ / う 
C378 
C37B 
C3/ し 
C37D 
し 3 /E 


に 97 ド 
Cd382 
C386 
C387 
C388 
C389 
C38C 
C399 
C392 
C394 
C395 
C396 


C399 
C39C 
C3A9 
C3A1 
C3A2 
C3A3 
CSA6 
C3AA 
C3AC 
CdAE 
C3AF 
CSB 1 
C3B2 


C3BS 
C3B8 
C3BC 
C3BD 
C3BE 
C3BF 
C3C2 
C3CO 
C3C8 
C3CA 
C3CB 
C3CC 


C3CF 
C3D2 
C3D6 
C3D7 
C3D8 
C3D9 
C3DC 
CdE り 
C3E2 
C3E4 
C3ES 
C3E7 
C3E8 


CdEB 
C3EE 
C3F2 
C3F3 
C3FS 


了 7 ト 2-8 


B/ 
ED52 
289E 
2A99Cd 
229 じ Cd 
2A9ECS 
2211C3 
き / 

に 9 

B7 

9 


2A93C3 
ED5B99CS3 
19 

+ ュ 

4D 
2A9SCd 
EDSB9EC3 


CB3A 


CB1B 

1 9 

EB 
CD10C1 


2A93CJ 
EDSB09Cd 
19 

1 ミ 

4D 
2A95C3 
EDS5B9ECd 
CB3A 
CB1B 

B7 

EDS2 

EB 
CD19C1 


2A9ECJ 
ED5B93C3 
19 

4 

4D 
2A95C3 
EDSB99Cd 
CB3A 
CB1B 

19 

EB 
CD19C1 


2A9ECd 
EDSB93C3 
19 

4 

4D 
2A95C3 
EDSB99Cd 
CB3A 
CB1B 


CD10C1 


2A93 し Cd 
EDSB99C3 
B7 

ED52 

は 4 


Or a 
5bC hl ,de 
JY Z。equal 
noteql: 1d hl , (intxX) 
1d (wOrKkX ) , hl 
1d hl , (inty) 
1d (wOrKky ) ,hl 
SCf 
et 
EqUa1E OF a 
et 
Y 。 ==ー=ー 。 CIFC】 = ニー ニー 
・ 。 Xt:=XO+TX 。 yt:=YO+Y/2 
CirCl: 1d hl , (XO) 
1d de,(1imtx) 
add hl 、de 
1d b,h 
1d si 
1d hl , (yO) 
1d de, (jnty ) 
ST1 d 
| ご 
add hl ,de 
eX de,h] 
Cal1 PSet2 
1 Xt:=XO+TX , yt:=YO-Y/2 
1d hl , (XO) 
1d de,(lihtxX) 
add hl ,de 
1d b,h 
1d | 
1d hl ,(yO) 
1d de, (jinty ) 
Sr 1 d 
TY G 
OY a 
SbC hl ,de 
EX de,hl1 
Cal 1 PSet2 
・ 。 Xt:=XO+yY ,。 yt:=YO+X/2 
1d hl1 , (1nty) 
1d de , (XO) 
add hl ,de 
1d b,h 
1d | 
1d hl , (YO) 
1d de,(intX ) 
ST 1 d 
TTY つ 
add hl ,de 
EX de,hl 
Ca11 PSet2 
> 。 Xt:=XO+V 。 yt:=YO-X/2 
1d hl , (inty) 
1d de , ( XO ) 
add hl ,de 
1d bh 
1d は 
1d hl , (yO) 
1d de,( intX) 
ST1 d 
記 ま し コ 
OY に ! 
SbC hl ,de 
eX de,hl 
Ca1 1 PSet2 
・ 。 Xt:=XO-X 。 yt:=YO+Y/2 
1d h] , (XO) 
1d de,( intX ) 
OY a 
SbC hl ,de 
1d b,h 


2-2 LINE と CIRCLE 


wOTKX 
yeS ,then 90tO "equal" 


1mtX = 


・ WOTKX:=1TmtX 


・ WOTKV:=iTty 


Cy flag On 


Cy flag Of 


つく 


ツウ / 


5 ご 





148 
1 49 
159 
151 
152 
153 
154 
155 
156 
157 
158 
159 
1609 
161 
162 
163 
164 
165 
166 
167 
168 
169 
179 
171 
172 
173 
17 4 
175 
176 
177 
178 
179 
189 
181 
182 
183 
184 
185 
186 
187 
188 
189 
199 
191 
192 
193 
194 
195 
196 
197 
198 
199 
2 


4D 
2A95C3 
EDSB9ECd 
CB3A 
CB1B 

19 

EB 
CD19C1 


2A93C3 
EDSB99C3 
B7 

EDS52 

44 

4D 
2A95C3 
EDSB9EC3 
CB3A 
CB1B 

B/ 

EDS2 

EB 
CD19C1 


2A93C3 
EDSB9EC3 
B7 

ED52 

4 ユ 

4D 
2A9SC3 
EDSB99C3 
CB3A 
CB1B 


2A93Cd 
EDSB9EC3 
B7 

EDS2 

44 

4D 
2A9SC3 
EDSB99C3 
CB3A 
CBIB 

19 

EB 
C319C1 


1qd 
1qd 
1d 
ST 1 
『T 
add 
EX 
Cal 1 
> X も L:=XOーX 
1d 
1d 
OF 
SbC 
1d 
1d 
1d 
1d 
5F1 
Tr 
OY 
SbC 
EX 
Cal 1 
? XXt:=XO-Y 
1d 
1d 
OF 
5bC 
1d 
1d 
1d 
1d 
ST 1 
FT 
OF 
5 DC 
EX 
Cal 1 


で Xt: =XO- ザ 還 


1d 
1d 
OT 
SbC 
1d 
1d 
1d 
1d 
51』' 1 
選 
add 
EX 
JP 


C。』 
hl , (yoO) 
de。( 1Tty) 
d 

G 

hl ,de 
de,hl 
PSet2 


yt : =YO-y/2 


hl , (xO) 
de,(1intxX) 
a 

hl ,.de 

b,h 

C。』 

hl , (YO) 
de,(1nty) 
d 

E 

d 

hl ,de 
de,hl 
PS5et2 


yt: =yO+X/2 


hl , (XO) 
de,(inty) 
| 

hl ,de 
b,h 

| 
hl , (YO) 
de, (intX) 
d 

で 

コ 

hl ,de 

de hl 
PSet2 


yt: =YO-X/2 


hl 。 (XO ) 
de,(11mty) 
1 

hl .de 
bh 

上 

hl . (yoO) 
de. (lintx) 
d 

6 

hl .de 

de 、hl 
PSet2 


Ze-3 PAINT 





ここ で 紹介 する PAINT ルーチン は , も っ と も 一 般 的 な 
ベー シッ ク ・ フ ィ ル アル ゴリ ズム を 使っ た も の で す 。 

まず , 始め に 単色 の PAINT に つい て 考え て み ま す 。 い 【 
ま , 図 2-7 の よう な 領域 を 塗り つぶ す と する と 処理 の 順序 
は 次 の よう に な り ま す ( 図 の 1 マス は 1 ドッ ト に 相当 する も 


の と する )。 





PAINT の 処理 


の イイ 1 1 間 / @ 出発 点 を スタ ッ ク に 積む 
タッ 
2 | 2 ウン 


LT TL 上 LA ググ 


(斜線 は 境界 色 ) 


@ 頑 . 右 を サー チ し て 塗る 


@ 矢 E 還 の 上 下 を 見 て * 印 を スタ ッ 
ク に 積む 





@ 最後 に 積ん だ も の を ポッ プ し て 
同様 の 処理 を 繰り 返す 





出発 点 を スタ ッ ク に 積む 。 

境界 色 に な る か , 画面 の 左端 (X 座 標 が 0) に な る ま て 左 
へ 色 を サー チ す る 。 この 結果 を X 1 と する 。 

境界 色 に な る か , 画面 の 右端 (X 座 標 が 6390 に な る まで 





っ ご 


GO 


右 へ 色 を サー チ す る 。 こ の 結果 を XX 2 と する 。 

⑳X1 か ら 6X2 ま て で 点 を 打つ (LINE で 代用 で きる )。 

⑳⑯X 1 から 6X2 ま で の 上 下 の 点 を 見 て も し 境界 色 で な いな 
ら その 座標 を スタ ッ ク に 積む 。 この と き 隣 合う 点 ち も スタ ッ ク 
に 積ま な いよ うに フラ グ を 設け る 。 

スタ ッ ク が 空 に な る まで か ら 繰 り 返 す 。 

る て , 赤 の と き , すでに 塗っ て ある か どう か と いう こと を 
判断 し な けれ ば な り ま せん 。 単色 PAINT の 場合 , 上 下 の 
点 が 塗る 色 で あれ ば , すでに 塗っ た も の と し て 判断 で きま 
す 。 こ の アル ゴリ ズム を も と に つく っ た プログ ラム が リス ト 
2-9 で す 。1280 行か 6 1430 行 が 上 下 の 点 を 調べ る も の で す 
が , 境界 色 だ け で な くく 塗る 色 と も 条件 判断 し て いる こと に 注 
目 し て くだ さい 。 つ まり , ここ で は 境界 色 と 塗 る 色 を 同等 に 
扱っ て いる こと に な り ま す 。 

ここ て 変数 LF, UF は 隣 合う 点 あ スタ ッ ク に 積ま な いよ 
うに する フラ グ , CUF, CLF は Y 座 標 の 範囲 を 越え を な いよ 
うに する だ た め の フ ラグ で す 。 ス タッ ク は 配列 で 代用 し まし 
た 。 リ スト 2-10 は テス ト 用 の プロ グラ ム で す 。 

中 間 色 PAINT の 場合 , 単色 PAINT と 違っ て 間 題 に な 
る の は ,。 どう や っ て すでに 準 っ た か を 判断 する こと で す 。 こ 
れ は 上 下 の ド ッ ト の 色 か ら は 単純 に 判断 で き な い か ら 6 です 。 
この 方 法 に は いろ いろ ある よう で す が , ここ で は 塗る と き に 
境界 色 と 境 界 色 の 間 を 見 て すでに 塗ら 6 られ て いる か どう か 判断 
する よう に し まし た 。 リ スト 2-11 の 1790 行 以降 の サブ ルー 
ナン が を その 判断 を する も の で す 。 

どの ライ ン ・ パ ター ン で 光 る か は , Y 座 標 の 値 で 決め る こ 
と に し ます (1450 行 )。 配 列 変数 TILECOLOR は 与え 6 れ 
た ライ ン ・ パ ター ン の デー タ か ら ド ッ ト 単 位 の 色 を 格納 する 
も の で す 。1230 行か 6 1260 行 の デー タ を いろ いろ 変更 し て 
試し て みて くだ さい 。 | 

この プロ グラ ム を マシ ン 語 化す る に は , ます POINT ル 
ー チ ン を つくら な け 衝 ば は なり ませ ん 。 しかし, POINT ルー 
チン は すでに みて きた PSET ルー チン の 逆 の 動作 を する も 


の で すか ら 6 簡単 に つく る こと が で きま す 。 ブ ログ ラム を リス 


ト 2-12 に 示し ます が , 





も は や 説明 の 必要 は な いと 思い ます 。 


1999 DEFINT A-〆 

1919 DIM SX(199) ,SY(1099) 

1926 

1839 Fon=1l : Foff=@ 

1949 : 

1959 INPUT "X9.Y9"iX9.Y9 

1969 INPUT "PAINT COLOR "iPAC 

1979 INPUT "BORDER COLOR" iBDC 

1989 : 

1999 1=9 

11 SX(I)=X9 : SY(I)=Yg9 : =1 

1119 LABEL "MAIN" 

1 129 1 = -] 

1 1 3 IF 1< く 9 THEN END 

1 1 49 X=SX( 1 ) : Y=SY(I) 

1159 : 

1169 WHILE POINT(X.Y) く >BDC AND 気 >=W 

117M X=X- 1 

1180 WEND 

1196 X1 =X+ 1 

129 X=SX(1) 

1219 wHILE POINT(X.Y) く >BDC AND X<=639 

1220 X=XX+ 1 

1230 wEND 

1240 XX2=XX- 1 

1259 : 

1269 LINE (X1.Y)-(X2.Y) ,。PSET , PAC 

1279 : 

128g CUF=Fon : CLF=Fon 

1299 IF Y=@9 THEN CUF=FOff 

1399 IF Y=199 THEN CLF=Foft 

1310 UF=Foff : LF=Foff 

1329 FOR  X=X1 TO X2 

133M IF CLEF=Foff THEN "SKIP1" 

1349 PTL=POINT(X.Y+1 ) 

1359 IF PTL<>BDC AND PTL<>PAC AND LF=Foff 
THEN LF=Fon : SX(I)=X : SY(I)=Y+l1 : 上 =1+1 

1369 IF PTL=BDC OR PTL=PAC AND LEF=Fon 
THEN LF=Foff 

1379@ LABEL "SKIP1“ 

1380 IF CUF=Foff THEN "SKIP2" 

139 PTU=POINT (XX.Y-1 ) 

1 499g IF PTU<>BDC AND PTU く <>PAC AND UF=Foff 
THEN UF=Fon : SX(I)=X : SY(I)=Y-1 上 =1+]1 

1410 IF PTU=BDC OR PTU=PAC AND UF=Fon 
THEN UF=Foff 

142W LABEL "SKIP2" 

1 439 NEXT 


Z-3 PAINT 


1449 GOTO "MAIN" 





「 リス ト Z10 


19 INIT : WIDTH 89 : CLS4 
29 LINE (199,.199)-(129,199)-(129,129)-(139.129)-(139.190 ) 


39 LINE -(159,199)-(159,189)-(199、189)-(199.189)-(199.1S59) 
49 LINE -(99.159)-(99.169)-(79.169)-(79.149)-(199,149)-(1099,.100) 
59 LINE (115,149)-(135,149)-(135.169)-(115.169)-(115,.149) 





61 





62 


1999 
1919 
1929 
1939 
1949 
1959 
1969 
19/9 
1989 
1999 
1190 
1110 
1129 
1 1 39 
1149 
1159 
11609 
1170W 
11809 
1199 
1299 


リス ト 2-| 


DEFINT A-Z 


DEF FNCH(A$ も ,J) =VAL(MID$(RIGHT も ("9999999"+BIN$(VAL("&h"+A$) ) ,8) ,J+1 。1 ) ) 


DIM SX(199),SY(109) 


FOn=-1 : POff = 

RESTOURE "TILE" 

READ No 

DIM TILE$(No-1 ) ,TILECOLOR( No- 1 , 7 ) 
FOR 1=9 TO Nox3-1 STEP 3 


A も = Wl 則 
FOR J=9 TO 2 
READ A$ : TILE$(T/3)=TILE$ も (1/3)+A$ 

NEXT 』,1 
RESTORE "TILE" 
READ TMP ・ ′ DAMMT READ 
FOUR !I=9 TO Now3-1 STEP 3 

READ A$ : READ B$ : READ C$ 


FOR Js9 TO 7 
NEXT 4 


1219 : 


1220 
1 239 
1240 
1259 
1269 
1279 
12809 
1299 
1399 
13109 
1320 
1 33W 
1349 
13509 
1369 
1379 
1389 
1399 
1 499 
1419 
1429 
1 439 
1449 
1450 
1 4609 
1479 
1 489 
1 499 
1590 
1519 
1526 
15309 
1549 


15509 
1569 
157@ 
1589 
1599 


1690 
1616 
1629 
1630 
1649 
16S59 
1660 
1679 
1689 
1690 
17099 
1710 


LABEL"TILE" 
DATA 3 。 TILE DATA NO. 
DATA AA,CC,AA ”。 TILE DATA (B,R,G) 


DATA 55,11.22 
DATA 22.33,44 


INPUT 
INPUT 


AM9。Y9"iX9,Y9 
_ BORDER COLOR" i BDC 


1 =9 
SY(I)=YB 
1 =] 
LABEL "MAIN" 

1=l-]1 

IF !I<9 THEN END 

X=SX(1 ) Y=SY( 1 ) 


・ SX( 1 )=X9 


GUSUB “LEFT_SEARCH" =OX( 1 ) 


GOSUB "RIGHT_SEARCH" 


GUSUB "CHECK" 
1F FLAG THEN "MAIN" 


LINE (X1.Y)-(X2.。Y) ,PSET , BF 、HEXCHR$(TILE$(Y MOD No)) 


CUF=Fon : CLF=Fon 
IF Ys THEN CUEF=Foff 
IF Y=199 THEN CLF=Foff 
UF=Foff : LEF=Foff 
FOR X=X1 TO X2 
IF CLF=Foff THEN "SKIP1" 
PTL=POINT(X。Y+1 ) 
1F PTL く >BDC AND LF=Foff 
THEN LF=Fon : SX(I)=X : SY(I)=Y+1 
IF PTL=BDC AND LF=Fon THEN LF=Foff 
LABEL "SKIP1" 
IF CUF=Foff THEN "SKIP2" 
PTU=POUINT(X.Y-1 ) 
1F PTU く >BDC AND UF=Foff 
THEN UF=Fon : SX(I)=X : SY(I)=Y-1 
IF PTU=BDC AND UF=Fon THEN UF=Foff 
LABEL "SKIP2" 
NEXT 
GOTO "MAIN" 


1=T+1 


1=]+1 


LABEL "LEFT_SEARCH" 
WHILE POINT(X,Y) く >BDC AND X>=9 
人 =Xー 1 
wEND 
1 =X+ 1 
RETURN 


ウン 





ナス トド ァ ZI 


つつ まき 
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1729 LABEL"RIGHT_SEARCH" 
1730 wHILE POINT(X.Y) く >BDC AND X<=639 
1749@ X=X+ 1 
1759 WEND 
1769 X2=XX- 1 
1779 RETURN 
17809 : 
1799 LABEL "CHECK" 
1800 FLAG=FOn 
1819 X=X1 
1820 LABEL "LOOP" 
183g IF POINT(X.Y) く >TILECOLOR(Y MOD NO . X MOD 8) 
THEN FLAG=FoOff RETURN 
184 上 XX=X+] 
1859 IF X<=X2 THEN "LOOP“" 
1869 RETURN 
1 * 
2 1 ーー SUbTOUt も time "PO1mt' --- 
3 1 entry ( x9 ) ・= PO1nt X 
4 1 (y0 ) ・= PO1IIt y 
り 1 Yeturn5 ( ix) Or (PCO1OrY ) 
6 6 mmOdifieS af ,bC,de,hl 
7 5 
8 C じ 999 CalCVa eqU CMH 
9 5 
19 C599 Or9 9C599H 
11 C599 C397C5 JP PO1int 
12 1 
13 C593 9999 XX: defw 999H 
14 C595 9999 y9: defw 99099H 
15 1 
16 C597 PO1nt EqU も 
17 5 
18 C597 ED4B83C5 pointl: 1d bC , (X9 ) 
19 C5gB ED5B95C5 1d de,(yM) 
2 C59F 217F02 POint2: 1d hl , 639 
21 C512 B7 Or a 
22 C513 ED42 SbC hl , bC 
23 C515 D8 ret C 
24 C516 21C799 1d hl ,199 
25 C519 ED52 SbC hl ,de 
26 C51B DG Yet 由 
27 
28 C51C DD216EC5 point3i: 1d 1X,PCO1OY 
29 C529 DD3690900 1d (ix), * CO1 Or : = 
39 C524 79 1d a,C 
31 C525 2F CP 1 
32 C526 E607 and 7 * 8a:=X9 mmOd 8 
33 C528 326DC5 1d ( xmOod8 ) , a 
34 C52B CD99CBg Cal 1 CalCVa 
35 C52E 3A6DC5 1d a,(Xmod8 ) 
36 C531 87 add a 8 > Shift left 3 bitS 
37 C532 87 add a 。 3 
38 C533 87 add a.3a 
39 C534 F643 Or 43H ・ Or 91999911b 
4 C536 3248C5 1d (@Qbitb) ,a 
41 C539 3257C5 1d (QbitY),.a 
42 C53C 3266C5 1qd (@Qb1t す 9),a 
43 1 
44 C53F 119949 tstblu: 1d de , 49909H ・ blue 
45 C542 19 add hl ,de 
46 C543 44 1d b,h 
47 C544 4D 1d C。1 
48 C545 ED58 1 m e,(C) 
49 C547 CB defb CBH ? bit n,e 
59 C548 @bitb: defs 1 
51 C549 2894 JT ヶ Z,tstred 
52 C54B DDCB909C6 Set 9。(iX) 


ey 


6 





72 CS6E 


リス ト 2-12 つづ まき 
53 C54F 119949 tstred: 1d de , 4999H red 
54 C552 19 add hl ,de 
55 C553 44 1d b,h 
56 C554 ED58 1 n e, (て C) 
57 C556 CB defb 9CBH ・ bit mn.,e 
58 C557 QDitr: defs ] 
59 C558 2894 JY Z,tstgrn 
69 C55A DDCB90CE Set 1 (1X}) 
61 C55E 119949 tstgrn: 1d de , 49909H ・ Green 
62 C561 19 add hl ,de 
63 C562 44 1d b,h 
64 C563 ED58 1 E。(C) 
65 C565 CB defb 9 り CBH ・ bit mn,e 
566 C566 QDbitg: defs 1 
67 C567 C8 ret Z 
68 C568 DDCB99D6 Set 2,(ix) 
69 C56C C9 ret 
7 6 
71 C56D XmOd8: defs | 
PCOIOr: def5 1 


リス ト 2-13 が 中 間 色 PAINT ルー チン で す 。 リ スト 2-11 
を ほぼ ば を その まま ハン ド ・ コ ン パ イル し だ た も の で すか ら , 特に 
解説 する 部 分 は あり ませ ん 。 た だ だ, "save 1' や 'save 2 の よう 
に スタ ッ ク を 操作 する と き は 変 な デー タ を プッ シュ し な いよ 
2 に 注意 し な けれ ば な り ま せん 。 また, スタ ッ ク が オー バー 
フロ ー し な いよ うに 監視 する こと も 必要 で す 。 な お 。 ライ 
ジン ・ パ ター ン は 8 個 ま で と し て いま す が 。 "tilecc の エリ ア を 大 
きさく すれ ば 数 を 増やす こと が で きま す 。 こ の PAINT ルー 
ナン で は , 座標 値 の チェ ッ ク を する 必要 が な い の で , 
pset すず ,。 point 3 を コー ル し て いま す 。 

ここ で て は, スタック か ら ポ ボ ポップ し た 後 , 塗ら れ て いる か ど 
うか チェ ッ ク し て いま す が , これ を スタ ッ ク に 積む と き に チ 
ェ ッ ク し て も よい で し ょ う 。 こ うす る と , まず 左右 の 境界 色 
を 調べ る わけ で すか ら ス タッ ク に 積む の は XX 座標 の 左右 端 と 
Y 座 標 し が な り ま す 。 そ し て , スタ ッ ク か らら ポップ し た ら 6 すぐ 
滞る さと 上 に し ます 。 

さて , リス ト 2-13 の 実行 速度 で す が, 最初 の X 1 の 
BASIC (CZ 一 8FB01) より は 速い の で す が , X1Turbo 
や で "OhIMZ 誌 "に 掲載 され た PAINT よ り は 遅く な っ て し ま 
いる し ただ 。 

プログ ラム の 実行 速度 有 あ げた いと き は , も っ と も 数 多く 
通る ルー チン を 高速 化す れ ば よい の で , ここ で は POINT 


と PSET ルー チン を 高速 化す れ ば よい こと が わか る と 思い 
ます 。 ここ で は 境界 色 を サー チ す る と きも , 点 を 打つ と きも 
堂 に Y 座 標 は 一 定 で す 。 で すか ら , 毎回 calcva と い 2 
VRAM アド レス を 求め る ルー チン を 使わ ず に , 始め に 1 
だ け こ れ を コー ル し て , あと は 求 ま っ た だ VRAM アド レス を 
オル クリ メン ト 。 デ クリ メン ト し て 赦 ラ ー コ ー ド を 待 る な 
り , 点 を 打つ な りす れ ば か な り 速 く な る と 思い ます 。 

こう する と, VRAM アド レス と 座標 値 を 両方 汚 理 し な け 
れ ば な ら な い の で , ブロ グラ ム は 複雑 に ,。 な お か つ 長 《 な る 
で しょう 。 ま だ ただ, この 場合 ,。 POINT や PSET ルー チン も 
汎用 の も の で な く 〈, PAINT 専用 の も の に な り ま す 。 も っ と 
速く し た い 方 は チャ レン ジ し て みて くだ る きい 。 

ちょ っ と 余談 に な り ま す が , “OhiMZ 誌 " に 掲載 され だ 
PAINT ルー チン で は , VRAM の 表示 る れ な い エ リア (7 
FD0-7 FEFF。 BED 0-BEFFF, FFD 0 一 EEFFF) に 一 旦 は 
か の ブロ グラ ム を 待避 る きせ て , その 空い た 儲 域 有 を スタ ッ ク ・ 
エリ ア に する と いう 方 法 を と っ て いま し た だ た 。 だ た い へ ん うま い 
方 法 だ と 思い ます 。 

また,。 ス タッ ク と いう の は LIFEFO (Last IN First Out) バ 
ッ フ アァ で す が , X 1 Turbo で は FIFO (First IN First Out) 
バッ ファ を 使っ て PAINT し て いま す 。 つ まり , 最初 に 積 
ん だ も の を 最初 に 塗る と いう こと で す (塗る 順序 に 注目 し て 
〈 だ さい )。 確か に FIFO バ バッファ を 使う と ワー ク ・ エ リア 
の サイ ズ を 小さ く で きま す が , その 代わ り ポ イン タ を 余計 に 
持た な けれ ば な ら 6 な い の で , その 分 処理 が めん どう に な り ま 
す 。 
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PO1int3 
PSet3 
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CO1Or 

PCO1 Or 
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XX : 
y0: 
bdC: 
nhO・: 
も til1e: 


tileC: 


hPalint 


還 
」 


SUDTOUtime "ti1im9 Palint' --- 
entry ( x ) = OFT19 す im X 
(y9 ) = OY19inm y 
( bdC ) ミミ bOrder COl1or 
( nO ) = tile data no. 
も t11e = ti1le data (Db,Y,9} 
前 Odify af。bC,ude,hl.ix.iy 

GU 9C51CH 

GU 9C11DH 

eqU 999BH 

eqU 9CF99H 

GU 9C899H 

EqU 9C じ 197H 

EqU 9C56EH 

OT9 9D00909H 

JB hpaint 

defw 199 

defw 80 

defb 4 

defb J * 加 3X 8 

defb 9AAH, 9CCH , 9AAH 

defb 55H, 11H,22H 

defb 22H, 33H , 44H 

defsS 64 

eqU も 

1qd bC ,(X) > CheCKkK origin point 

1d de,(y9) 

1d hl , 639 

OY a 

SbC hl ,bC 

ret 世 

1d hl ,199 

SbC hl.de 

ret C 

POP hl 

1d (retadr ) , hl > SaVve Teturn address 
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Jr 
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JT 
Set 
1 1C 
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DC , 53 
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a 。 (IO ) 
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1X。tile 
Iy,。t1 ecC 
d。(1X) 
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if a<>199 then CIf 


d := POint(Xx。yp1uS ) 
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if uf = 9 then "SaVve" 
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トウ トウ 『 ウ ドラ 


1 X 
hl,@9 
hl ,SP 


DC,StKbOt 


a 
hl , bc 


C,。OUtStK 
hl ,(yP1US ) 


hl 
hl , (x) 
hl 
a,9FFH 
(Uf)。a 
(1X) 


1 X 
hl,9 
hl ,SP 


bC,StkKbot 


8 
hl , bc 


C,OutstKk 
hl , (大 imus ) 


hl 
hl , (X) 
hl 


・= POjint(X,yp1u5S ) 


e = bdc then "Skip3" 


1f = 9 then "SaVve" 


bdC <〈 く >〉> e them "Skip4" 


UI = 9 then "SsSKip2" 


1X < く - Feturn addr . 


> TetUurn 


還 
還 


1X く - return addr. 
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223 
224 
225 
226 
227 
228 
229 
239 
231 
232 
233 
234 
235 


236 
237 
238 
239 
249 
241 
242 
243 
244 
245 
246 
247 
248 
249 
259 
251 
252 
253 
254 
255 
256 
トカ 』 
258 
と 59 
260 
261 
262 
263 
264 
265 
266 
267/ 
268 
269 
270 
27 1 
27/ 2 
273 
274 
2/ う 
276 
2// 
270 
279 
289 
281 
282 
283 
284 
285 
286 
28/ 
288 
289 
290 
291 
9 
293 


D1EC 
D1F9 
D1F3 
D1FS 


D1F7 
D1FB 
D1FF 
D2092 
D295 
D298 
D299 
D20B 
D20E 
D29F 
D21 2 


D2 1 4 
D217 
D218 


D21B 
D21F 
D223 
D226 
D229 
D22A 
D22C 


D22E 
D232 
D236 
D239 
D23C 
D23F 
D249 
D242 
D245 
D246 
D249 


D24B 
D2 4E 
D24F 


D253 
D255 


3EFF 
3285D1 
DDE9 


11DCD1 
CD9B90W 


ED7B8CD1! 
2A8ED! 
E9 


4F757429 
56F66294D 
656D6F72 
79 
9D9A090 


ED4353D2 
2AS3D2 
CB7C 
291D 


ED4B53D2 
ED5B92D1 
CD1CCS 
3A97D9 
DD4699 
B8 

2899 
2A53D2 
2B 
2253D2 
18DC 


2A53D2 
23 
2255D2 


ED4B99D1 
ED4353D2 
2A53D2 
117F092 
B7 

EDS2 
391D 


ED4BS3D2 
ED5B92D1 
CD1CCS 
3A97D9 
DD4690 
B8 

2809 
2A53D2 
2 さ 3 
2253D2 
18D8 


2A53D2 
2B 
の の の ィ バリ 


し 9 


OutStK: 


ETdret: 


G 血 65 ・ 


| 生還 還 。 昌 肖 。 虹 還 生 。 明 . 
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SeaYCh: 
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left1: 


left4: 


還 


1d 
1d 
JP 


1d 
Cal 1 


1d 
1d 
JP 


def 部 


defb 


SeaYCh 


1d 
1d 
bi t 
Jr 


1d 
1d 
Cal 1 
1d 
1d 
に D 
jr 
1d 
deC 
1d 
51 
1d 
1 mnC 
1d 


1 right 


right: 


rightl: 


Tight2: 


る 守 


1d 
1d 
1d 
1d 
OF 
SbC 
JY 


1d 
1d 
Cal 1 
1d 
1d 
CP 
JY 
1d 
1nC 
1d 
Jr 
1d 
deC 
1d 
ret 


dets 
def5 
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a.MFFH 
(1f),a 


(iX) ・。 YeturIj 


de ,emeS 
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SP, (SaVveSDP ) 
hl , (retadr ) ' 
(hl ) ・ Teturn 


*Out Of MemWOYy' 


9DH ,9AH,9 


CO1 Or 


(X ) , DC 

hl , (X) 

7。h ・ if hl < 上 
nZ,left4 6 then Xl := 
bC。 (XX) 

de, (COOrdy ) 

PO1nt3 

a 。 ( bdC) 

D。 (KK) ・ D := (PCO1OTY ) 

b * bdC = PCO1OY 

ヶ ,left4 then "left4" 

hl , (X) 

hl ? XX = 
(x),hl1 

left 


sl 


時 。【 交 】 
hl 1 
(xl ) ,hl 6 


X] := X+1 


bC, (COOFdX } も D 選 3 生 区 
【 X) 。 DC 

hl 。(X) 

de , 539 

a 

hl ,de 6 
nC、Tight2 1 


if xX > 639 


then "right2" 


DGG LE 

de , (COOrdy ) 
PO1nt3 

は な, ( bdC } 

b,(iX) 

b 6 
Z,Tight2 5 
hl , (X) 

hl > XX 
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right1 
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hl 
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ト っ トウ 
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294 
295 
296 


297 
298 


299 


| 3 昌 9 
| 39 1 


392 
393 
3 4 


| 395 


396 
397 


| 3 上 9 


319 
31 1 
312 
313 
き 1 4 
315 
316 
3】 / 


_318 
| 319 


329 
32 1 
さ 22 
き 23 


| 324 


325 


| 326 


327 
d28 
329 


| 339 


3J1 
332 
ささ 3 
さ 34 
ささ ら 
336 


| 間 必 す 


338 
39 
49 
34 1 
342 


343 
| 344 


345 
346 
347 
348 


| 349 
| 359 


35 1 


| 352 
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354 
355 


356 


357 
358 
359 


| 369 


36 1 
362 


| 363 


364 
355 


| 366 
| 367 


7 〇 


D259 
D2SC 
D25F 
D262 
D263 
D266 
D267 
D269 
D26A 
D26D 
D276@ 
D27 1 
D272 
D274 
D275 
D277 


D27A 
D27E 
D282 
D283 
D285 
D286 
D28A 
D28D 
D299 
D291 
D292 
D294 
D296 
D299 
D29A 
D29C 
D29F 
D2A9 
D2A3 
D2A7 
D2A8 
D2AA 
D2AC 


D2AE 
D2AF 


D2B9 
D2B1 


D2B2 


D2B4 
D2B7 
D2BA 


D2BE 
D2C9 
D2C3 
D2C5 
D2C6 
D2C8 
D2CA 


2AS5D2 
2253D2 
さ A98D9 
So7 

3A92D1 


21 12D9 
9109899 
1 

き D 
2893 
99 
16FA 
22B2D2 


FD2AB2D2 
ED4BS3D2 


79 
E697 
98 


EDSB92D1 


CD1CC5 
DD4699 
98 

SF 
1699 
FD19 
FD7E99 
B8 
29 1 4 
2A53D2 
23 
2253D2 


EDSBS7D2 


B7 

ED52 
38CE 
28CC 


37 
し 9 
B7 
し 9 


2AS5D2 
2253D2 


DD2AB2D2 


DDE5 
SA53D2 
E697 
4F 
9600 
DD99 
DD7E09 
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CheCk2: 


Check3: 


Check4: 


ChecCk5 : 


defS5 


フ 
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1d 
1d 
1d 
1d 
1d 
Sub 
Jr 
add 
1d 
1d 
1 1C 
deC 
Jr 
add 
Jr 
1d 


1d 
1d 
1d 
and 
eX 
1d 
Ca1 1 
1d 
eX 
1d 
1d 
add 
1d 
CP 
JY 
1d 
1 mC 
1d 
1d 
Or 
SbC 
Jr 
Jr 


SCf 
ret 
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の て 
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hlinme1l: 


ーー- hl1inme --- 
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Teturn 


1d 
1d 
1d 


Pu5sh 
1d 
aTd 
1d 
1d 
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1d 


entry X 1 

X2 
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t1 emo 
hl , (X1 ) 

(X ) , hl 3 電 > 
8 , (mnO ) 

d,a 

a (COOTdy ) P 
d 

nC,CheCKk 1 

a,d 『 >: 生 、 
hl ,tileC 

bc,8 

8 

| 

ヶ ,CheCk3 

hl 、bc 

Check2 

(ti emo) , hl 


Yetur (1{ On then palnted else no) 


X 1 


10w (COOrdy ) 


中 
山 


y mod no 


1y,(t11 enO ) 

bC,(X) 

a,C 

7 > a := 
af。af'" 1 
de , (COOrdy ) 
PO1int3 

b,(1iX) ・ D := PO1rmt(X,Y) 
af,af'" : load a 

e,3a 

d ,9 
1y,de 
a,(1y) 
b * 1f 
nZ , CheCk5 

nl 。(X) 

hl 

(x ) ,hl 「 6 で 
de,(X2) 

き 

hl ,de 1 
C。CheCK4 ) 
ヶ Z,Check4 1 


X 面 Od 8 


・ 9et tile Color Code 


PO1Tt(X.y) く >t ji lecCol or 


1f XX 〈= xX2 
"Check4" 


> Cy := 1 


X1 ,X2.COOrdy 
t 1 1 emo 
One 


hl ,(X1) 
(X)。hl 3 X := X1 
IX,(ti]l enO ) > 1X く - 人 ti1le COl1Or 


1 X 
a。(X) * き ・= 
7 

C。3 

b, 9 

1X , bC 

aa。(1X) 


10w(xX) 


a く - COIOr Code 
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368 
369 
| 379 
37 1 
372 
373 
37 4 
375 
376 
| 377 

378 
379 
389 
381 


D2CD 
D2D9 
D2D4 
D2D8 
D2DB 
D2DD 
D2EW 
D2E1 
D2E4 
D2E8 
D2E9 
D2EB 
D2ED 
D2EF 


3297 し 1 


ED4BS53D2 


ED5B92D1 
CD1DC1 
DDE 1 
2A53D2 
23 
2253D2 
ED5BS57D2 
B7 

EDS2 
38D1 
28CF 

C9 


1d 
1d 
1d 
Cal1 
POP 
1d 
1 nC 
1d 
1d 
OY 
SbC 
JY 


ド et 


(COlOY ) , 4 
bC,(X) 


de , (COOTdy ) 


PSet3 

1 X 

hl ,(X) 
hl 
(xX ) 。hl 
de ,(X2) 
| 

hl ,de 
Cihlinel 
ヶ Z。hlinmel 


J- ど と 声 人 


時 
7 
ウ 
9 
は 
上 
8 
DD 
ク 
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本 章 で は , PSG の 機能 ※ レジ スタ な ど に つい て は いっ きる 
い 解 説 し ませ ん 。 これ に 関し て は , 既刊 の 『X 1 リフ ァ レ ン 
スス ノット] な ど を 参照 し て 《 だ さい 。 


9-|-] 量 本 サブ ルー チン 


PSG に デー タ を 出力 する 最も 基本 と な る サブ ルー チン を 
リス ト 3-1 に 示し ます 。 こ れ は 既に 何 度 も 見 て きだ と 思う の 
で , 特に 解説 は し ませ ん 。 

PSG で 音楽 を 演奏 する 場合 , トー ン ・ ジ ェ ネ レー タ に 音階 
の 周波 数 を セッ ト し , 音 の 長き る は ソフ トウ ェ ア で その 分 カツ 
ント し て や り ま す 。 リ スト 3-2 は 音楽 演奏 用 の サブ ルー チン 
で , 音 の 長き る に は 表 3-1 の よう な デー タ を 入れ ます 。 音 の 高 
る の デー タ は, 音階 の 周波 数 か ら 求 め た も ので, これ に つい 
て は 『X1 リ ファ レン ス ノ ッ ト を 参照 し て くだ さる い 。 


ーー ニー SUDYOUtime "SOufQd' - 
entry 3 := PS9 Ye す . IUmWbeY 
1 := data 
OOdifieS One 


PS9COm ( 1C909H 


9C990H 


DC 

bcC 、DS9CO 
(C).a4 

b 

(て C) .d 

DC 





] 
2 
3 
+ 
り 
5 
7 
9 
9 
19 
1 1 
12 
13 
1 4 


C990 
C199 


C19W 
じ 1093 
C1096 


C1097 
C199 
C19B 
C19D 
C1WFE 
し 111 
C113 
し 115 
まま も / 


5 し 119 
坦 9 交 


C11D 
し ます す 
に みき 
し に 123 
し 1 25 


0 


C129 
C12B 
し 12D 
C13@ 
C132 
C134 
に 37 
C138 
C139 
C13A 
C13B 
(し し 13 し 
し 13D 
C13E 
C13F 
C141 
C1 43 
C1 45 
C148 
C1 4B 
C1 4C 
C14D 
C1 4E 
C14F 
に 19/ 


C154 


) た よみ り 


2197C1 
CD29C1 


に 9 


EE 
89 り 
DS90 
80009 
BE 
6990 
B390 
8000 
JFW0 
09 
GE 
6900 
7F9 り 
8 
7799 
869 


FEFFF 


SE97 
163E 


CD90C り 


JE98 
1699 


CD99CD 


4E 
23 
46 
23 
78 
A7 
F6 
B1 
280A 
SE96 
169F 


CD09C0 
CDS4C1 


4E 
23 
46 
23 


CDSFC1 


18DC 


AF 
S1 


し F 上 敵 還 E 草 」 還 P 軸 F | F 画 」 


Ourd 


に 


US1C: 


data: 


っ 


US1C1: 


US1C2: 


US 1C3: 


US 1C 


U 
OT9 


1d 
Cal1 
ド et 


defw 
defw 
defw 
defw 
defw 
defw 
defiw 
defw 
detw 
defw 
defw 
defiw 
defw 
defw 
defw 


defw 


Set {freq. 


tOne: 


XOF 
1d 


ETtTy 
OOdifieS 


9C90909H 
り C じ 1099H 


hl 、mdata 
US1CI 


9EFH 
9980H 
9DSH 
9980H 
9 り PBEH 
99080H 
り B3H 
り 980H 
9FH 
9980H 
GEH 
99809H 
7PFH 
9080H 
77H 

9 り 980H 


9FFFFH 


a.7 

d . SEH 
SOUTId 
a、8 

d , 9 
SOUIid 
C。thl ) 
hl1 

b, (hl ) 
hl 

a、Db 

a 

川 

C 

Z 。 加 US 1C3 
a。8 
d.15 
SOUTId 
tOne 
C、(hl) 
hl 

b (hl ) 
hl 
delay 
US1C2 


3-| 効果 音 


hOTIe 
af 。bC、de.hl 


・ Ted. 
・ length 


・ GeTd mark! 


tuUYn Switch 
tOne-a On 


電車 


*・ Set VO1lUme 


・ det freq. data 


IrYed. < く 9 9? 

yeS 、 Yeturn 
fYeq.=9-? 

YeGS 。 VOIUme := 上 
VOIUme := 8 


上 合間 還 旧 王 生 "人生 間 還 草 」 


・ et length data 


、 Set freq. 


ラヴ プペ 


プ つ の 
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CIS6 CD99CM 





Ca11 SOund 
(に 15 生 3 し 1 1C a 
C15A 59 1d d.b 
C15B CD99CW Ca1 1 SOUd 
CI5E C9 et 

・ COUTnt dOwn 

CI1bF 112601 delay: 1d de.9126H 
C162 1B delay2: deC de 
C163 7B 1d 8 。6 
C164 B2 OF d 
C165 20FB JY nhZ 、delay2 
C167 9B deC bC 
C168 /9 1d a。C 
C169 BM OY b 
C16A 2F3 JY nZ.delay 
C16C C9 et 


3 は 


の デー War 


3-]-2 ノイ ズ ジ ェ ネ レー タ の 活用 

効果 音 を うま 〈 く 作る こつ は ノイ ズ ・ ジ ど ジェネレータ を 活用 す 
る こと で す 。 簡単 な 例 と し て , 波 の 音 を 作っ て み ま し た ( リ 
スト 3-3) 。'sounds と いう ラベ ル 名 で 始ま る サブ ルー チン に 
は 、 オ ンク ライオン ・+ 2 メー タ て デー グ 送り ま 字 。 デ ー メ の 
形式 は , PSG レジ スタ 番号 。 デー タ …… の 順 で す 。 

リス ト 3-4 に いく つか の サン プル の デー タ を 示し て お きま 
す 。 最初 の 踏切 の 音 は , 3 つの 周波 数 の 違う トー ン を 出力 
し ,。 を の うち 2 つ に エン ベロ ー プ を か け て 作り まし た 。 次 は 
ビス トル の 発射 音 で す が , エン ベロ ー プ ・ タ イム を も っ と 短 
《〈 し て ,。 エン ベロ ー ブ プ 波 形 を 連続 し た も の に 取り 替え を る と マ て 
シン ガン の 音 に な り ま す 。 3 番目 の デー タ は 爆発 斉 で す が , 
これ は 普通 の シン セ モ サ イザ で は , ビ ピンク ・ ノ イズ を 使っ て 合 


3-| 効 末 音 


成 し ま す 。 ピ ンク ・ ノ イズ は 高周波 成分 の 少な い ノ イズ で す 
が 。 X 1 で は PSG へ の 基本 周波 数 が 高く , ノイ ズ の 平均 周 
波数 は 最低 で も 4 KHz と 高く な が っ て いま す 。 そ の だ めこ こ 
で は トー ン に 最も 低い 周波 数 を セ モット し て , 同じ チャ ン ネ ル 


か が ら ミ ッ グ ス し て 出力 し まし た 。 


リス ト 3-5 は サイ レン の 音 を で す 。 こ れ は 2 つの 周波 数 の 


トー ン を 交互 に 出力 する こと で 合成 で きま す 。 
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2 
3 
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O 
6 
7 
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り 
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ーー 
ーー 


EE 


ms てら ウロ デビ 


ト つ 
し JI 


COO) の 


C900W 
C200 
C200 


C203 
C205 
C207 
C299 
C20B 
C29D 


2 C29F 


C210 


だ 11 
アオ 
C213 
C214 
に 2Z1 3 
C216 
C219 
C21A 
C21D 
に 21F 


CD11C2 


9737 
9 り 6068 
9810 
9B7A 
CDA 
9D9E 


FF 
C9 


E1 

7E 

23 

A7 
FA1FC2 
S6 

23 
CD909CM 
18F3 
E9 


ーーー ffGCt5S -ーー 


SOUTd 


entry 
OdifieS af.de.hl 


呈 U 


0『9 紀 


effexXt: Call 


! ーーー WaVe --- 


3 
SOUTd5S : 


S1OOP: 


EX1t: 


defb 
defb 
defb 
defb 
defb 
defb 


defb 


ド る て 


POP 
1d 
1mC 
and 
JP 
1qd 
1 nC 
Cal1 
4 
JP 


IiOIiE 


9C999H 
9C299H 
SOUndS 
7 .37H 
6 , 98H 


8 ,109H 
11.7AH 


12.9DAH 


13.9EH 


り FFEH 


h1 
a。 (hl ) 
h1 


男 、EX1t 
d、(h1) 
SOUYd 


5 1O0OP 
(hl ) 


・ mO1Se-a On 


・ TO1Se freq. := 15.6KHZ 
・ emV.-a OI 

・ emV.time := 85 

・ eV.Shape := 14 

・ ed 串 aTK! 


・ hl := addr. of data 
? a := Ye す 9. IO. 


・ if reg.mO <〈 時 then return 
* d := data 


・ TetUYTI 


1 
2 
3 
+ 
O 
5 
7 
8 
9 





1| 
2 
J 
4 
m 
6 
ア 
8 
9 
19 


11 


q 証 





defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 


ぅ > ニー ニー P1StO1 


defb 
defb 
defb 
defb 
defb 
defb 
defb 


ーーー IEKirI 


7 , 38H 
6 ,19H 
9,109H 
19 ,9CH 
9.77H 
1 。 妥 

2 .9EEH 
3 。 昌 

4 , 9DDH 
Sr91H 
1 1 ,。42H 
12.9FH 
13,98H 
り FFH 


7。 さ 7H 
6,8 

6 , 19H 
11 ,42H 
12 .92H 
13,9 
9FFH 


* ニー ニー GeXP1IOS1OY  --- 


C199 
C300 


C399 
し 39 コ 3 
C395 
C397 
Cd399 
C309B 
Cd9D 
C3WF 


Cd109 
C312 
Cd15 


| し 17 


C319 
C31B 
C31D 


Cd1E 


defb 
defb 
defb 
defb 
defb 
defb 
defb 


defb 


defb 


CD99C1 


973C 
0610 
9919 
9 り BFF 
り CE 4 
り D9E 
FFP 


1E32 


CD99C1 


99EF 
9109 
926E 
9309 
FF 


CD34C3 


7 。36H 
8.19H 
9 , 9FFH 
1 ,.9FH 
6,1FH 
11.8EH 
12.5BH 
13,9 

9FFH 


1 
に 」 


」 
SOUTdS 


8 
S1TeT: 


SirTenl : 


S1Ten 


EdU 
0T 可 


Ca1 1 
defb 
defb 
defb 
defb 
defb 
defb 
defb 


1d 

Cal 1 
defb 
defb 
defb 
defb 
defb 


Cal 1 


tOne_a,b,C On 
emVeIOPe a Om 
EnmVelOpe_Db On 


に 昌和 


VOlUmWe C := 12 

tOme_a freq. := 147Hz 
ャ tOne_Db freq. := 523HzZ 
) tOme_C freq. := 262Hz 
: GTmVeIOPe ti 基 GE := 時 .5S 
・ GTVeIOPe Shape := 8 
ゎ 。 GTQ marKkI! 
s IO1Se a On 
> IO1Se fTeq. := 15KHzZ 
? GTmVeIOPe a On 
ゎ ETmVeIODpe tlime := 9.55 
ぅ > GTmVEIOPe Shape := 


ゎ ETQd 胡 arK ! 


> tOne_a On , noise a on 
? eVeIOpPe a On 


ぅ tOne_a frTeq. := 39.5Hz 
> TO1Se frTeq. := 4KHZ 
+ GTVelOPe time := 35 


> GTVeIOpPe Shape := 
ゎ end markIl 


9C19H 

9C399H 

SOUudS 

7 。 SCH ? tOme_a On , tone_b on 
8 ,19H > ETIVeGIOPe a On 

9 ,19H ゎ > GTVe1IOPe _b On 

1 1 ,.9FFH ・ GTVe1IOPe ti 男 G := 835 
12 .9F ド 4H 

13.9EH > GTmVelOpe Shape := 14 
9FFH > GTQ mark! 

e , 59 ゎ 1OOP COunter 

OUTrdS 

9 , 9EFH > tOme_a freq。 := 523Hz 
1 , 昌 

Ne > tOme_b freq. := 88Hz 
9FFH ぅ > GTd markl 

delay 


ウブ < 





つづ き 
26 C321 CD99C1 Cal 1 SOUrd5 
27 C324 9DD defb 9 、 9DDH ・ tOne _a IrTeq. 
28 C326 9191 defb 1.91H 
29 C328 921C defb だ 4 し 回 , tOne_b freq. 
39 C32A 9391 defb 1 
31 C32C FF defb り FFH ・ emd mark! 
33 C32D CD34Cd Ca1 1 delay 
34 C339 1D deC G 
35 C331 29DF J『 nZ,Sirenl 
3 じ 33J と せり et 
37 
38 C334 91FFFF delay: 1d bC,9FFFFH 
39 C337 9B delayl1: deC bC 
49 C338 79 1d 「 邊 宮 
41 Cd339 B9 OY b 
42 C33A 29FB 間 和 nhZ.delayl 
43 C33C C9 Tet 


3- 上 -J 特殊 効 索 昔 


PSG は シン も サイ ザ と し て 見 れ ば 非常 に シン プル な も の 
で , 音 は どう し て も 単調 に な り が ち で す 。 し か し , そう いっ 
て あき ら 6 め る の も 早計 で , プロ グラ ム の 工夫 次 第 で 結構 お も 
し ろ い 効果 が 得 ら れ ま す は 一 般 的 な 効果 音 と し て ポ 
ル タ メ ント 。 エコ ー。 ビ プラ ー ト を 紹介 し ます 。 

人 @ 邊 降下 爆 学 

トー ン ・ ジ ェ ネ レー タ の 周波 数 を 高い 方 か 6 低い 方 へ 変化 
きせ ポル タメ ント の 効果 を 得 て ひ ます (リス ト 3-6)。 3 つ 
の トー ン を 合成 すれ ば より スペ ー シ ー で 広がり の ある 音 が 得 
られ ます 。 

王 エ コー 

音 が 物体 に 反射 し て 帰っ て くる と , そこ に 時 間 の 人 遅 れ を 生 
じ エ ュー 効果 が 得 ら れ ま す 。 こ の 遅れ を ソフ トウ ェ ア て 作っ 
て や れ ば , 同様 の 効果 が 得 ら れる は ず で す 。 

ここ で は PSG の 3 つの トー ン ・ ジ ど ジェネレータ を 利用 し て 
同じ 音 を 少し づつ 人 遅らせ て 演奏 し て いま す 。 も ちろ ん , 元 の 
音 に 比べ て 反射 し て 来 た 音 は 小 る きろ い は ず な の で , 音量 も だ ん 
だ ん 小さ くし な けれ ば な り ま せん 。 リ スト 3-7 の echo 1 で 
始ま る サブ ルー チン で は , この 遅れ 時 間 と 音量 を 自由 に 設定 
で きる よう に し て いま す 。 実際 , お 風呂 で 歌う 2 うとう まく 聞こ 


ーー = 
人 ュー に っ 


3-| 効果 音 


262ZHZ 
449HZ 


イツ 





える よう に , この プロ グラ ム を 使っ た と き の 効 果 は 大 きく 〈., 
単調 な PSG の 音 が か な り 区 や か に 聞こ えま す 。 
@ じ ビブ ラー ト 

エレ クト ー ン で お な じみ の ビブ ラー ト の 効果 は , 音 に 低い 
周波 数 で FM 変調 か ける と 得 ら 5 られ ます 。 ビ ブラ ー ト を か 
ける と き に は この 低い 周波 数 を 発生 する LFO (Low Fre- 
quency Oscillator) を 使う の で す が , PSG に は この LFO 
に 相当 する 機能 が な い の で , これ を ソフ トウ ェ ア の 方 で 作り 
ます 。 

FM 変調 たい うと ちょ っ と 面倒 くる を そう で す が , 実際 に は 
トー ン ・ ジ ェ ネ レー タ の デー タ を 一 定 の 周期 で 増減 きせ る だ 
け で 基本 的 に 難し いこ と は あり ませ ん 。 こ こ で は ビ プ ラート 
の 深 る と 周波 数 を 調節 で どき る よう に し た た め , 一 定 の 周波 数 
を 作り 出す 部 分 (本 来 は LEFO が 担当 する ) の 記述 が 若干 長 
く て なり まし だ (リス ト 3-8)。 


3 ニーー DO 表 D =-ー-- 
SOUTd GU 9C999H 
SOUTdS eqU 9C199H 
OT9 9C49 昌 
9 CD9gC1 bomb: Cal1 1 SOuTrdS 
97 3 defb 了 。3EH > tOne a On 
989F defb 8 , 9FH ゝ VOIUMeG a := 15 
FF defb 9FFH ? TO 部 aTKkI 
219699 1d hl .6 ゎ tOne_a fred. := 2g.8KHZ 


<9.8KHZ -> 244.6HZ 


AF bOmbl:  xXor a 


55 1d d , 1 > hl := data 
CD99Cg Ca1 1 SOuTd 
3C 1 1C a 
5 4 1d dh 
CD99Cg Ca1 1 SOuTid 

5 CD33C4 Cal 1 delay 

8 23 1 mnC hl 
7C 1d ah 
E6FE ard り FEH > freqd. := 244.6Hz ? 
28ED J\ Z, bOmb1 > TO , COtinue 

E CD99C1 Ca1 1 SOuIdS 
9736 defb 7 ,36H > tOne_a On , OiSe a On 
99FF defb 9 ,.9FFH > tOme_a fred. := 39.5HZ 
919F defb 1 ,9FH 
961F defb 6。1FH ・ TO1Se frTeq. := 4KHZ 
9819 defb 8 、19H > GenHVeIOPe _a On 
り B24 defb 1 1 . 24H > GTIVeIOPe tt1mE := 83 
9CF 4 defb 12.9F4H 


ズブ く 
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36 C42F 9D99 defb 13.9 ・ eTVelOPe Shape := 
37 C431 FE defb 9FFH ・ emd mWark! 
38 C432 C9 ret 
39 1 
4 C433 919994 delay: 1d bC , 9499H 
41 C436 9B delay1: deCc bc 
42 C437 79 1d a,C 
43 C438 B@ OY b 
44 C439 209FB JY nZ,delay1l 
45 C43B C9 ret 
1 6 
2 ゝ ーーー eChO ーーー 
3 6 entry nOne 
4 ' Oddifie5S 37 。bC。de。hl 1X。jiy 
5 1 
6 C99W SOUnd EdU り 9C9909H 
「 5 
8 C599 OrT9 り C599H 
8 
10 C599 2197C5 eChO: 1d hl 、mdata 
1 1 C593 CD29C5 Cal 1 eCho 1 
12 C596 C9 ret 
13 4 
14 C597 EF99 mdata: defiw り EFH freq. 
15 C599 9991 defw 199H 1 en9gth 
16 C59B D599 defw 9D5H 
17 C5D 9991 defw 9 199H 
18 C59F BE90 defw 9BEH 
19 C511 9991 defw り 9 199H 
2 (513 B399 defw 9B3H 
21 C515 9991 defw り 199H 
22 C517 9F99@ defw 9FH 
23 C519 991 defw 91099H 
24 C51B 8E99 defw 8EH 
25 C51D 9991 defw 9199H 
26 C51F 7F99 defw 7FH 
27 C521 9991 defw 9199H 
28 C523 7700 defw 77H 
29 C525 99091 defw 9199H 
1 * 5 
31 6 
すさ 2 6 
33 5 6 
34 C527 FFFF defw 9FFFFH ed 弟 8TK! 
35 1 
36 C529 eCho 1 EqU $ 
37 C529 CD6EC5 Cal 1 iniech 
38 C52C 112691 eChO2: 1d de,9126H delay 
39 C52F 1B eChOoO3: deCc de 
49 C539 7B 1d a。 6 
41 C531 B2 OF d 
42 C532 29FB Jr nZ , eCho3 
43 1 
44 C534 DD21FFC5 1d -1 X 。VOCtDb1 1X := VOiCe table 
45 C538 9693 1d 3 
46 C53A 3E93 echo4: 1d a,3 
47 C53C 9 Sub b 
48 C53D 329BC6 1d (VO1Ce ) ,a 
49 C549 DD5E99 1d E,( 1X+COunt ) ・ de := COunter 
59 C543 DDS69 1 1d d 、( 1X+COumt+ 1 ) 
51 C546 DD7EM 1 1d a,( 1X+COUt+1 ) 
52 C549 A7 and a ・ finish ? 
53 C54A F252C5 JP P,echo5 ・ YO , COntinue 
54 C54D 78 1d a,b 


oy 1 


81 


ご ど 


SS 
S6 
57 
o6 
59 
69 
61 
62 
63 
64 
65 


67 
66 
69 
7M 
7 1 
72 
73 
7 4 


76 
『 上 / 
78 
79 
680 
81 


83 
84 
85 
86 
87 
88 
89 
9M 
1 
92 
93 
94 
95 
96 
97 
98 
99 
199 
191 
192 
193 
1094 
195 
196 
1097 
108 
109 
119 
111 
112 
113 
114 
は うら 
116 
117 
118 
119 
120 
121 
1 メダ 
123 
124 
125 
126 
127 
128 
1 29 


CS56E 
CS 7 0 
C572 
CS575 
C577 
C579 
C57B 
C57E 


?。 し う / ド 


CS581 
C583 
CS587 
C58A 
CS58D 
CS8E 
CS8F 
C599 
CS593 
CS94 
C595 
C598 
CS9B 
CS9E 
C5A9 
CSA1 
CS5A2 
CSA4 


CSAS 
C5A8 
CSAA 
CSAC 
C5AF 
CSB2 
C5B5 
CSB6 
CS5B/ 
C5B8 
CSB9 
CSBA 
C5BB 
CS5BE 
C5BF 
CSC1 
C5C4 
CSC6 
CSC9 
CS5CA 
CSCB 


CSCE 
CSD1 
CS5D2 
CSD4 


3D 
C8 
1813 


DDB6090 
CCASCS 
DDSE90W 
DDS69 1 
1B 

DD73909 
DD729 1 


1194099 
DD19 
19CE 
18BE 


dE 7 
1638 
CD99C0 
り 693 
dE08 
1690 
CD90CW 
dC 
19FA 
3E93 


DD21FFC5S 


り 1F6CS 
1 19499 
FS 

9A 

93 
DD7799 
9A 

り 3 
DD779 1 
DD7S92 
DD7 493 
DD19 

F 

3D 
29E9 
し 9 


3A9BC6 
C6098 
1690 
CD99CW 
DD6E092 
DD6603 
S6 

23 

SE 

23 

7B 

A7 
FAE9C5 
B2 
2824 
JA9BC6 
CB27 
CD99C9 
き C 

Sd 
CD99C9 


3A9BC6 
ひ F 
1699 


FD21FCC5 





ECho5: 


eChO6 : 


deC 
et 
JT 


Or 
Cal 1 
1d 
1d 
deC 
1qd 
1d 


1d 
add 
d jnZ 
Jr 


a 
み 
eCho6 


( 1X+COuUTt ) 

ヶ .TYdnext 

E、( 1X+COUt ) 
d,。( 1X+COUmt+1 ) 
de 

( 1X+COuUIt ) , e 

( 1X+COunt+ 1 ) ,d 


de,4 

1X,de 
EChoO4 
eChO2 


6 1miltialiZe eChOoO 


還 
1 niIeCh: 


1mi1l: 


1mn12: 


重 
生 


1d 
1d 
Cal 1 
1qd 
1d 
1d 
Cal 1 
1 mC 
dJnZ 
1d 
1d 
1d 
1d 
Pu5h 
1d 

1 nmC 
1d 
1d 

1 nmC 
1d 
1d 
1d 
add 
POP 
deC 
Jr 

『 も も 


きき 。 ア 

d , 38H 

SOuId 

b,3 

a,.8 

d,9 

SOund 

d 

1n1 1 

a,3 
1X,VOCtb1 
de , 4 

af 

a 。 (DC) 

bC 

( ix+COUnt ) , a 
a ,( bC) 

bC 

( 1X+COUmt+ 1 ) ,a 
( iX+PBO1mt ) , 1 
(1X+PO1mt+1 ) ,h 
1X、de 

af 

a 

nZ , ini2 


Tead next data 


Tdmext: 


1d 
add 
1 d 
Call 
1d 
1 d 
1d 
1 nC 
1 d 
1 nC 
1d 
arid 
JP 
OF 
JT 
1 d 
51a 
Cal 1 
1 mnC 
1 d 
Cal 1 


1d 
1d 
1d 
1d 


a 。 (VO1Ce ) 
a.8 

d .9 

5OUrIid 

1] 、( 1X+POITmt) 
h, (1X+PO1It+] ) 
d、 (hl ) 

hl 

E。thl) 

h 1 

a。G 

a 

胡 .Td2 

d 

Z,FTdI 

a, VO1Ce) 
| 

SOund 

a 

de 

5Ound 

8 , (VO1Ce) 
E.a 

d 、9 

1 y 。VO1UWG 


* JO 。+ 


finish al1 ? 
yeS ,. return 


? TEXt VO1Ce 


COUunt dOwn COPDlete 
read next data 
COunt doOwn 


COUmt dOwm a11 VOlCe 


COIt 1 nuUe 


turYnm 5SwitCh 
tOne_a,Db,C On 


・ VOIUme_a,Db,C := 9 


・ Set VO1Ce COUTteY 


1X := VO1ICe table 
= delay ti 大 GE table 


Set delay t1me 


Set COUTter 


initialiZe all VOice ? 


* TO ,。 COTt1ue 
VOIUmme := 昌 
hl := data Boliriter' 
・。 9e{t frTeq. data 
fre. く 4 9 
Ye5 。 doO noth1ln 
freq. = 9? 
YS5 VOlIU 症 E := 
Set freq, 
CalC. adr. Of VOlume data 
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139 
131 
132 
133 
134 
135 
136 
137/ 
138 
139 
149 
141 
142 
143 
144 
145 
1 46 
147 
148 
149 
159 
151 
152 
153 
154 
1 55 
156 
157 
158 
159 


C5D8 
C5DA 
C5DD 
CS5E9 
し ひら 
C5E5S 
CSE6 
C5E7 
C5E8 
CSE9 
CDEC 
0) ココ 
CSFZ 
し り の P ひ 


CS5F6 
C5E8 
C5FA 
CSEC 
CS5FD 
し CSFE 


99 り 0 
9902 


し じ 9FF 
C69B 


FD19 


FDS699 
3A9BC6 


C6098 


CD90C9 


SE 
23 
っ 6 
23 


DD/39 り 
DD7291 
DD7592 
DD7 493 


し 9 


9999 
っ 990 
A990 
9F 
り B 
7 


リス ト 3-8 


「 コ ーーーーー ーー 
本 OO の 連 選 の いい ー 有 らら の コ つ の の ニ ト ロ の ドロ ドロ デ 


トウ トウ 『 り 
こう 『 ウ 


トウ トウ 『 ウ ドウ 『 ウ トウ 
(の ど の の の 


CO CO C う 
ho 一 


っ ) OO の 


C9909 
C699 


C69M 


C693 
C696 


C607 
C6099 
C60B 
C69D 
C69F 
C61 1 
C613 
C615 
C617 
C619 
C61B 
C61D 
C61F 
C62 1 
C623 
C62S 


C627 


C629 
C629 


2197C6 
CD29C6 


C9 


EF99 
9090 1 
DS90 
り 991 
BE909 
り 909 1 
B3090 
90991 
9F90 
りり 1 
8E09 
り 00 1 
7F99 
9001 
7/99 
9001 


FFFF 


JE0 7 


| E RE EE RE 


Vi brat: 


rd1: 


Td2: 


還 
」 


・ data 


dl1yt1 箇 : 


VO1Ume: 


COUIt 
PO1nt 


VOCtb1 : 


VO1CE: 


午 


Ourid 


前 data: 


ト 昌 症 。 史 義昌 症 生 上 」 


9 
V 


1b1 


add 
1d 
1d 
add 
Cal1 
1d 
1 nC 
1d 
1 1C 
1d 
1d 
1d 
1d 
ド et 


fOY eChO ( delay time & 


defw 
defw 
defw 
defb 
defb 
defb 


E 可 U 
U 


def5 
def Ss 


Vi brato 


避 U 
0T 


1d 
Cal 1 
Yet 


defw 
defw 
defw 
defw 
defw 
defw 
defw 
defw 
defw 
defw 
defw 
defw 
defw 
defw 
defw 
defw 


defw 


edU 
1d 
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1y,de 

G .【1Y】) 

a, (VO1CGe) 
a,8 

SOUTQ 
E、(h] ) 


・ et VOIuUme data 
5Gt VO]Ume 


get length data 


(1x+Count ) ,e ・ Set COuTIter 
( 1X+COUTIt+1 ) ,d 
(1X+pPO1Tt ) , 1 * 


(ix+PO1mt+1 ) ,h 


SaVve data PO1Inter 


VOIU 加 G ) 


9990H 
りり 59H 
99A9H 
9FH 
9BH 
97H 


VO1Ce a delay tj1me 
b 


5 
VO1Ce _a VO1Ume 
b 
C 


に ほ 症 半 全 間 生 昌 還 生 昌 間 還 昌 疫 上 」 


entry 
前 Od1ifie5 


One 
af ,bC,de,hl 


り じ 99 日 
9 り C690H 


hl 。 加 data 
Vib1 


り EFH 
9109H 1 
り DSH 

り 10909H 

り BEH 

り 9100H 

9B3H 

り 100H 

gFH 

91090H 

8EH 

91090H 

7FH 

91909H 

77H 

91099H 


{Ted。 
1 erngth 


9FFFFH 


$ 
ョ . ア 1 


GTO ATKI 


turn Switch 


ご づつ 





38 
39 
49 
4 1 
42 
43 
44 
45 
46 
47 
48 
49 
ゃ 1 / 
5 1 
5 2 
SJ 
944 
55 
S6 
57 
S9 
99 
60 
61 
62 
63 
64 


66 
67 
68 
69 
7 上 
7 1 
あま 
73 
74 
7 き 
76 
7 ア 7 
78 
79 


8 1 
82 
83 
84 
85 
86 
87 
88 
89 
99 
J 1 
92 
9J 
94 
95 
96 
97 
ドル 
99 
199 
191 
192 
[93 
194 
195 
196 
197 
198 
199 
119 
111 


C661 
C664 
C667 
C668 
C669 
C66A 


C66C 
C66D 
C679 
C671 
C673 
C676 
C67A 
C67D 
C67E 
C681 
C683 
C686 
C688 
C68A 
C68B 


C68E 
C68F 
C690 
C693 
C694 
C695 


C698 
C699 
C69A 
C69C 


C69D 


163E 
CD99C9 
3E98 
1699 
CD00CM 
4E 

23 

46 


23 
ED43CBC6 


78 

7 

F8 

B1 
2811 
3E98 
169F 
CD99CM 


AF 

So 1 
CD99C じ 9 
3C 

1】 7 
CD99CW 
4E 

2J 

46 

23 

E5 
CD61C6 
E1 
18CF 


CD9DC6 
112601 
1B 

7B 

B2 
29FB 


9B 
JACFC6 
Al 
2WF 1 
2ACBC6G 


EDSBCDC6 


3AD9C6 
JC 
32D9C6 
E693 
EA8AC6 
ED52 
189 1 

1 9 
22CBC6 


AF 
りり 
CD99C9 
き C 
5S4 
CD090C9 


79 
BW 
29C8 
C9 


AF 


V1 b2: 


Vi b3: 


Cntdwn: 


CTt1: 
CTt2: 


の 0 も 3 
CTnt4: 


] 
」 


lmilfO: 


d , 3EH 
SOund 
a。8 

d 。 9 
5Ourid 
C, (hl ) 
hl 

b, (hl ) 
hl 
(tnfreq ) , bC 
ab 


d。b 
SOUnd 
C,。 (hl) 
h1 

b, (hl ) 
h 1 

hl 
Cmntdwn 
hl 

Vi b2 


COUIt dOwIn 


Cal 1 
1d 
deC 
1qd 
Or 
JY 


deC 
1d 
and 
和 
1d 
1d 
1d 
1 1C 
1d 
and 
JP 
SbC 
JY 
add 
1d 


XOTY 
1d 
Cal1 
1 nC 
1d 
Cal 1 


1d 
OY 
JT 
ret 


inilfOo 
de .9126H 
de 

a,6 

d 
nZ , CTt2 


bC 
a,(frq1fO) 
(・ 

nhZ , CIt 1 

hl , (tmnfreq) 
de, (frTqmOd ) 
a。(Uudf19) 


a 

(udfl9d),a 
3H 

Pe , Cmt3 

hl ,de 

Cnt4 

hl ,de 
(tnfreq ) , hl 


| 
G 。 1 
SOUurd 
は | 

d , h 
SOund 
4 し 


b 
nZ,CIt1 


imitialize LFO 


XOF 


に 


m 重 


EE 


tOme_a OI 


St VOlumWe 
VOIUmE := 


et freq. data 


SaVve freq. data 
freq. < く 9 92 

yeS , Teturn 
freq. = 9 9 

YeS , VOIU 症 E := 9 
Set VO1UmWe 

VOlume := 8 


Set {frTeq. 


get length data 


COunt down 


1htialiZe LFO 
delay 


COUmt dOwn 


OSCillate 1Ow fred. 


mnO ,。 COIt1iTUE 
hl := CUrTTent freq. 
de := freq. 串 Odulation 


CheCK frTeq. UP/dOwT 
upD , then tnfreq+fTqOd 


dOwn , then tnfreq-frqmOd 


SaVve frYeq. 


Set freq。, 


COmP1 ete 


つづ き 





112 
113 
114 
13 5 
116 
まま ば 
118 
119 
120 
121 
122 
123 
124 
125 
1 26 
127 
128 
129 
139 
131 
132 
133 
134 
135 
136 
137 
138 
139 
1 49 
141 


142 


C69E 
C6A 1 
C6A5 
C6A8 
C6AA 
C6AC 
C6AE 
C6BM 
C6B1 
C6B3 
C6B7 
C6B9 
C6BC 
C6BD 
C6BF 
C6C1 
C6C2 
C6C4 
C6CS 
C6C8 


C6C9 
C6CA 


C6CB 
C6CD 
C6CF 
C6DW 


ウザ また 

32D9C6 

ED5BCBC6 

3ACAC6 

D609C 

2897 inilfl: 

CB3A 

CB1B 

1 衝 

18F7 

ED53CDC6 inilf2: 

1EFF 

3AC9C6 

A7 

28095 imnil1f3: 

CB3B 

3D 

18F9 

7B inilf4: 

32CFC6 

C9 

9 4 frTqrTat: 

96 Vi bdpt: 
tnfYeq: 
frTqmOd : 
frYqIIO: 
udflg: 


1d 
1d 
1d 
Sub 
jr 
ST1 
前 
1 1C 
JY 
1d 
1d 
1d 
aTid 
Jr 
ST 1 
deC 
Jr 
1d 
1d 
Tet 


data for LFO & 


defb 
defb 


def5 
det 5 


defS 


defs 


(udfl9),a 
de。 (tnfreq) 
a, (Vibdpt) 
〆 
JE112 

d 
太 


8 

imilfl 

( frqmmOod ) , de 
e,9FFH 
a。(frqTat) 


a 

ヶ ,。imilf4 

G 

a 

imnilf3 

ae 
(frql1fO) 。a 


月 こ 」 ) に 


事 


wOTK area 


3-| 効 末 音 


Clear udflg 
Ca1C. WOdulation data 


Set modulation data 
CalC. LEFO freq. 


・ Set freqd. data 


こり 


エエ テー ニー レス へ 、, 





入力 る され て きた 音声 デー タ に し た が っ て PSG の 出力 を 
ON / OFEF する と 音声 出力 が で きま す 。 実際 に 音声 合成 の 
原理 を 説明 する と か な り の 量 に な る の で ここ で は 省略 し ます 


が ,。 ブロ グラ ム の 方 は 実に 簡単 で す (リス ト 3-9)。 





GO 


| 6 
2 ? ニー ニー VO 1 Ce ーー ニー 
3 5 entry hOne 
4 mmOdifieS af .d 
5 6 
6 ・ ーー IOCS ー-- 
7 MDEC CmtCO 還 eqU DECH ・ CaSSette Control 
8 994A brkchk equ 994AH ) SenSe Shift+break 
9 6 
19 9902 C 匠 tDIV eqU 2H ・ C 串 も Play 
1 1 WI C 加 も StD eqU 1H > C 央 も StOP 
12 1AW1 PP 1 GU 1A91H : 299_ 2 POTt _b 
1 3 6 
14 C9909 SOunrd GU 9 り C009H 
15 6 
16 C809 OY9 9C8909H 
17 C899 AF XOr d ぅ > tOme_a freqd. := 9 
18 C891 1699 1d d , 
19 C893 CD99C9 Cal 1 5OUd 
29 C806 3C 1 mnC a 
21 C897 CD99CW Ca1 1 SOurid 
22 C89A 3EW7 1d a.7 
23 C89C 163E 1d d , 3EH ・ tOne_a On 
24 C80E CD909C9 Ca11 SOurd 
259 6 
26 C811 91911A 1d DC , PP1 
27 C814 3E92 1d 8,CmtPly > Play 
28 C816 CDEC9D Cal 1 C 加 も tCO 促 
29 1 
39 C819 CD4A969 1OOP: Ca1l1 brKChK 
31 C81C 2811 1 ヶ , break 
32 C81E ED78 1 nn a,(C) ・ read data 
33 C829 E6092 and 2 
34 C822 1608 1d d 、8 > VOIUmme := 8 
35 C824 2992 Jr nZ,SKip > if data = 9 then 
36 C826 1699 1d d,9 5 VOIUmme := 
37 C828 3E098 SK1iD: 1d a,8 ・ Set VOI1UmWe 
38 C82A CD99C9 Cal 1 SOUTYd 
39 C82D 18EA JT 1OOP 
49 
41 C82F 3E91 break: 1d a、CmtStp 。 StOP 
42 C831 CDEC9D Ca1 1 C も CO 町 
43 C834 C9 Tet 
4 4 * 


これ は 8255 ② の ポー ト B の ビッ ト 2 か ら カ セッ ト の デー 
この デー タ に し た が っ て 単純 に PSG を ON 


タ を 読み 込み , 


ノン OFF し て いま す 。 し か し , カセ モット 内 臓 タ イプ の X 1 で 
は デー タ の 信頼 性 の た めか な り 波 形 を 整形 し て くる の で , あ 
まり いい 音 が 出 ま せん 。 同様 の ゲ プログラム を MSX や FM 
7 な ど で 実 行 す る と か な り 明 瞭 に 聞こ を える の で す が …。 おま 
た , オー ケス トラ の は ょ よ うに 周波 数 常 域 の 人 いも の に は 向い て 
お ら ず , せい ぜ い 話 し 声 程度 し か 再生 で きま せん 。 

リス ト 3-10 は , 音 の データ を メモ リ に 記憶 , 再生 する プ 
ログ ラム で す 。 記憶 する と き は 1 ビッ ト の デー タダ を 1 バイ ト 
に な る まで 繰り 返し ,。 それ を メモ リ に 入れ て いま す 。 逆 に 再 
生 す る と き は 1 バイ ト の デー タ か らら 1 ビット ずつ 取り 出し 
PSG を ON OFE し て いま す 。83 行 目 の aA レジ スタ に 入 
れる ディ レイ ・ カ ウン タ の 値 を 大 きく する と 記憶 で きる 音 の 
長き が 増し ます が , 逆 に 音質 は 低下 し ます 。 こ の プロ グラ ム 
で 声 の デー タ を 収集 し , XX1 に し ゃ で ら せ だ りす る と , 結構 
受け る (?) か も し れ ま せん 。 





リス ト 3-10 


3-2 音声 合成 


] 

2 ーー-- 。 TeCOTdQ & DPIaAY  --- 

3 entry nOTe 

4 ImOdifieS きす 。D。dG、h1 。1X 

5 

5 ・ =- 10C5S =-- 

7 9@DEC CmtCOm eqU 9DECH ・ CaSSette COntrOol 
8 9094A brKChK equ 994AH ・ SemSe Shift+breaKk 
9 6 

19 99092 CtD1y eqU 92H ・ C 由 も t Pl1ay 

1 1 99M1 CmtStD eqU 1H ・ CC 前 も t StOP 

12 1A91 PP1 eqU 1A91H ・ 8255 2 port_b 
3 - 

14 CAMM buffer eqU り CA00H 

15 35W1 bfsSiZe eqU 9FF99H-buffer+ 1 

16 6 

17 CMMW SOund edU り C9099H 

18 6 

19 C999 OT す 9 9C999H 
2M 1 
2 1 ・ YeCOYd 
22 6 
23 C999 3E92 1d a,C 加 tp1y 。 C 加 も Play 
24 C992 CDECM9D Ca1l1 C も CO 
25 9 Cal1 10OP 
26 C995 DD2109CA 1d 1X,buffeY 
27 C999 219135 1d hl ,bfsiZe 
28 C99C 91911A 1d bcC , PP1 

29 C99F 1608 TeC1l: 1d d,8 ・ 1OOP COQOunter 


39 C911 CD6CC9 TeC2・ Ca11 delay 


を 


ご / 





31 
32 
33 
34 
K 
35 
3/ 
38 
39 
40 
4 1 
42 


++ 
45 
46 
4/ 
48 
49 
ら り 
S1 
り 2 
SJ 
54 
に 
S6 
57 
58 
S9 
5 
51 
62 
63 
54 
65 
56 
67 
68 
69 
7 
7 1 
2 
73 
7 4 
/ ひ 
76 
を / 
7・ 
79 
89 
8 1 
82 
983 
84 
85 
86 


C91 4 
C916 
C9168 
C919 
C91A 
し 91 し 
C91D 
C91F 
じ 922 
C92 4 
CS2ZS 
C926 
C927 


C929 
C92B 
し G2E 


じ 93 1 
C93Z 
C934 
C937 
C938 
C9JB 
C93D 
C93F 


C942 
C946 
C949 
C94C 


C94D 
C959 
C952 
C954 
C956 
C9S8 
C9SA 
C95C 
C9S5F 
C962 


C964 
C966 
C967 
C966 
C969 
C96B 


C96C 
C96E 
C96F 
C972 


ED78 
E692 
1 ド 
1F 
CB1B 
15 
29 ド 2 
DD7300 
DD23 
2B 
まな 
BS 
29E6 


JEM 1 
CDEC9D 
C331C9 


AF 
16909 
CD99CW 
3 し 
CD99C9 
JE9 7 
163E 
CD99CW 


DD2109CA 


219135 
CD4A9 
C8 


DDSE99 
9608 
CB1B 
169F 
3892 
16909 
SE98 
CD9CW 
CD6CC9 
1 9EE 


DD23 
2B 
7D 
B4 
29DE 
C9 


JE95S 
3D 
C26EC9 
し 9 


> Play 


Play: 


Play1l: 


Play2: 


Playd: 


delay: 


delay1: 


1 
and 
TTYa 
TYa 
TTY 
deC 
] ド 
1d 
1 1C 
deC 
1d 
OY 
JY 


1d 
Ca1l1 


XOT 
1d 
Cal 1 
1 1C 
Cal1 
1d 
1d 
Ca11 


1d 


Ca1l 1 
Fet 


1d 
1d 
TY 
1d 
J『 
1d 
1d 
Cal1 
Cal 1 
djJnZ 


1 1C 
deC 
1d 
Or 
ret 
1d 
deC 
JP 
Tet 


も で 】 


い 
d 

nZ ,TeC2 
(1X)。G 
1 X 

hl 

ah 

1 
1Z,TeClI 


8 、C 各 も Stp 
C 箇 も CO 
Play 


3 
d.9 
SOUYd 
4 
SOuUTd 
二 ゅ ナ 

d , 3EH 
SOurd 


1X。DUIIGeY 
hl 、bfSsiZe 
brKChKk 


nZ,Playl 


a.5 
| 
nZ,delayl 


F 間 . 間 還 。 明 間 昌 症 還 旦 症 生生. 


Tead d 


G := 


buffer full ? 
TO 。 COIt1lTYue 


ata 


data 


C 逢 も t StOp 


tOne _a 


tOIe 8a 


freq. 


OTII 


break 9? 


YS <。 


Teturn 


1OOD COunter 


data -> Cy flaq 


VO1Ume 
if dat 


可 三 


VO1IUEe := 


end ? 
1O 。 


delay COunter 


COIt 1 InUe 


9 then 
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4-1 Stellar コ ン バ イ ラフ の 概要 
4-2 エ デ イ ツ 
4-J9 モニ ー ツ 
4-4 コン バイ ラ 


Selar コ (イラ う / シス テ ca エ ディ タ 








て お の. 


の 0 
軸 て ' る の で , リ ア ルター イ ム ・ 2 ジス 








和伸 
( 
の 
D 
eV 
、 2 
人 
0/ 


| ユニ 
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Stelar コ ッ リ イラ 0 


Stellar コン パイ ラ ・ シ ステ ム の 特徴 は 次 の と お なり で す 。 
エディタ は 文字 列 の 検索 , 置換 . ブロ ッ ク の 編集 (移動 , 
コピ ー な ど ) が 可能 で , CP ノ M の ワー ド ・ ス ター の よう な 
クル スク リー ン ・ エ ディ タ で す 。 

の Stellar コン パイ ラ (4-4 参照 ) は 。 オン メモ リ の た め 高 
速 で す 。 オ ブ ジ ェクト は GVRAM (グラ フィ ッ ク RAM) 
に 出力 し 。 ロー ダー に より メイ ン ・ メ モリ に ロー ド し ます 

(この た だ た め , X 1 に は ,。 GVRAM が 必要 で す ) 。 
モニ タ は , HuBASIC の モニ タ の 機能 に ブ プレー ク ・ ポ イン 
ト の 設定 , レジ スタ の 表示 ・ 変 更 , さら に , 16 進数 の 加減 乗 
除 な と の 機能 を 追加 し て いま す 。 
⑳ BASIC に ある APSS, FILES の 機能 が カセ ッ ト ・ テ ー プ 
に 対し て 使用 で きま す 。 
⑩⑥X 1 の 広い メモ リ 空 間 を 利用 し , ソース ・ プ ログラム の エ 
リア は 約 30 K バ イト ほ と あ り ま す 。 


4-1-1 コマ ンド の 説明 


X 1 の Stellar は 次 の 10 個 の ユマ ンド を 用 意 し て いま す 
( 各 コ マン ド の 最後 に は l キ ー を 押す こと ) 。 コ マン ド は ス 
クリ ー ン ・ エ ディ ッ ト で き , 大 文字 , 小文字 の どちら 65 で も よ 
( 混在 可能 で す 。 
⑩ SED 

プロ グラ ム を 作成 する た め に ,。 エディ イタ を 起動 し ます (4- 
2 で 詳し 述べ ます )。 
@② の COMP [/ ノ P] 

エディ タ で 作成 し た Stellar の ゲ プログラム を コン パイ ル し 
ます 。 オ ブ ジ ェクト は GVRAM に 出力 し ます 。 “/P" を 付 
ける と コン パイ ル 時 の 情報 を プリ ンタ に プリ ント し ます (4- 





4-| Stellar コ ン パ イラ の 概要 


4 で 詳し 述べ ます )。 
@⑥ LDOBJ [ ノ P] 

GVRAM に 出力 され だ オブ ジェ クト を メモ リ に ロー ド し 
ます 。“/P” を 付け る と ロー ド 時 の 情報 を プリ ンタ に プリン 
ト し ます (4-4 で 詳し (述べ ます )。 
の RUN[ &Hnnnn] (nnnn は 16 進数 ) 

プログ ラム を 実行 し ます 。“RUN 必 Hnnnn"” は nnmnn 番 
地 か ら 6 実行 し ます (4-4 で て 詳し (述べ ます ) 。 
⑥ CONT 

9 break で 実行 を 中 断 し た プロ グラ ム を 再開 し ます (4-4 
て で 詳し 述べ ます )。 


⑯ MON 
モニ タ を 起動 し ます (4-3 で 詳し (述べ ます )。 
9 APSS 十 


カセ ッ ト ・ テ ー プ の 頭 出 し を FAST 方 向 に し ます 。 
SHIFT 二 BREAK キー, C (CTRL キ ー と C を 同時 に 押 
す )、 ま た は カセ ッ ト の スト ッ プ ・ キ ー を 押す こと に より 途中 
で 実行 を 止め ゆる こと が で きま す 。 
⑧⑩ APSS 一 ( 

カセ ッ ト ・ テ ー プ の 頭 出し を REW 方向 に し ます 。 
SHIFT 十 BREAK キー, C, また は カセ ッ ト の スト ッ プ ・ 
キー を 押す こと に より 途中 で 実行 を 止め る こと が で きま す 。 
@⑥ FILES [ ノ P] 

ファ イル の 一 覧 表 を 画面 に 表示 し ます 。“/P" を 付け る と 
ファ イル の 一 覧 表 を プリ ンタ に ブリ ント し ます 。 
⑩ BOOT 

IPL BOOT し ます (電源 ON と 同じ で す )。 


4-1-2 ファ ンション:・ キ ー 

コマ ンド ・ モ ー ド 時 に お いて , ファ ンク ショ ン ・ キ ー の 設 
定 は 表 4-1 の よう に な っ て いま す (コー ルド ・ スタ ー ト 時 に 
設定 )。 


91 


に アン 


新 だ に に ファ ンク ショ ン ・ キ ー の 設定 を 変え る に は コマ ン 
ド ・ モ ー ド の 時 “MON 疫 " と 打ち モニ タ に 入り , ファ ンク シ 
ョ ン ・ キ ー バ ッ フ ァ を 変更 し て 〈 だ きい 。 変更 後 。 ホッ ト ・ 
スタ ー ト (G14A3 因 ) すれ ば , 変更 し た ファ ンク ショ 
ン ・ キ ー が 画面 の 下 に 表示 る れ コ マン ド ・ モ ー ド に な り ま す 。 
プア ンク グ クション ・ 圭一 パッ フ ア は 0F 42H か ら 始 まり すま す 。 
1 つの り フ ァ ン グ クシ ョ ン ・ キ キー バッ ファ アァ の 長 る は 16 バ イト か ら 
な り , 10 個 の エリ ア (合計 で 16X10= ニ 160 バイ ト ) を 持っ て 
いま す 。 フ ァ ン クシ ョ ン ・ キ ー バ ッ フ ァ の 構造 は , 最初 の 1 
バイ ト が 定義 バイ ト 数 (0 -15), 残り の 15 バイト が 定義 文 
子 て す 。 定義 し た 文字 の 残り の 部 分 に は スペ ー ス (20 時 ) 
を 設定 し て くだ る い 。 





コマ ンド モー ド 時 の ファ ンク ショ ン の 内 容 


F | SED 

COMP 
LDOBJ 
CONT 
RUN 
MON 
APSS 十 
APSS 一 
FILES 
RUN&H 


















ュ マ ンド ・ モ ー ド の と き に F 1 を 押す か , また は “SED 較 " 
と 入力 する と エディ タ に 入り ます 。 

エディ タ の 使用 中 に コマ ンド が わか ら な が なくなっ だ と き は 
] (CTRL キー と J を 同時 に 押す ) を 押す と コマ ンド 表 
( 表 4-2) が 表示 る れる の で 参考 に し て くだ さい 。 コ マン ド 
は , 

・ カ ー ン ソル 移動 

・ イ ン サ ー ト 人 & デ リー ト 

・ フ ァ イ ン ド 層 リプ レス 

・ ブ ロッ ク ・ オ ペレ ーション 

・ そ の 他 
に 大 別 で きま す 。 表 中 で , た と を えば QF は CTRL キー を 
押し な が ら 65Q と F を 続け て 打つ こと を 意味 し ます 。 

ファ ンク ショ ン ・ キ ー の 設定 は エディ タ に 入る と 表 4-3 の 
よう に 設定 され ます 。 


Pe 





エディ タ の コマ ンド 表 


@ カー ソル 移動 

較 に か | 文字 左 へ ^ ご | 文字 右 へ 

^A | 語 左 へ ^ | 語 右 へ 

1 | 行 上 へ ^ X ) | 行 下 へ 

 R ンー 。 間 | ペー ジ 下 へ 

- W スク ロー ル ・ ダ ウン 大 スク ロー ル ・ ア ッ プ 

~ OR,FS6 テキ スト の 先頭 へ ^ 0OC.F9 テキ スト の 最後 へ 

^ OB,F6 カー ソル を ブロ ッ ク の 先頭 へ 

~ OKF7 カー ソル を ブロ ッ ク の 最後 へ 

^ 1HTAB TAB ^ HLDEL | 文字 左 へ 
Fo 
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@ イン サー ト & デリ ー ト 
^ V 挿入 モー ド の 切り 換 へ 
^ N | 行 挿入 
^ G カー ソル の 下 の | 文字 を 削除 
F 4 カー ソル の 前 の | 文字 を 削除 
^ カー ソル の 右 の 1| 語 削除 
Y カー ソル の ある 行 の 削除 
カー ソル の 位置 か ら 行 末 ま で 削除 


1 


@ ファ イン ド & リ プレ イス 
^ OF 検索 


8 再 検 索 


@ ブロ ッ ク ・ オ ペレ ーション 
^ KB,FI ブロ ッ ク の 始点 マー ク ブロ ッ ク の 終点 マー ク 
^、 KC ブロッ ク の コピ ー プ ブロック の 移動 
^- KY ブロ ッ ク の 削除 マー カー の 削除 

KP ブロ ッ ク の 印字 プロ グラ ム の セー プ ブ 
- KR ブロック の リー ド _KV プ ブロッ ク の ライ ト 

KO プロ グラ ム の 削除 


ヘル プ ・ メ ッ セ ー ジ の 表示 
プロ グラ ム の 印字 
ライ ン ・ サ ー チ 

コマ ンド ・ モ ー ド に 戻る 





エディタ 使 用 時 の ファ ンク ショ ン ・ キ ー の 内 容 





ブロ ッ ク の 始点 マー ク 

ブロ ッ ク の 終点 マー ク 
マー カー の 削除 
カー ソル の 前 の | 文字 を 削除 
コマ ンド ・ モ ー ド に 戻る 


カー ソル を ブロ ッ ク の 先頭 へ 
カー ソル を ブロ ッ ク の 最後 へ 
カー ソル を テキ スト の 先頭 へ 
カー ソル を テキ スト の 最後 へ 
カー ソル の 位置 か ら 行 末 ま で 削除 





9 和 4 


4-2-1 カー ソル 移動 


カー ソル は BASIC を 使っ て いる と き の カ ー ソ ル の 動き と 
は 少々 異な り , 文字 O の な いと ころ に は カー ソル を 移動 で きま 
せん (多少 違和感 が ある と 思い ます が , すでに 慣れ る で し ょ 
う )。 プ ログ ラム を 1 行 打ち 込ん だ 6 ら M キ ー を 押し ます が , 
J キ ー の ASCII ユー ド (0DH) も 1 文字 と し て 扱い ます 。 

カー ソル を 移動 きせ る に は , 次 の コマ ンド まだ た は キー を 使 
いま す 。 
カー ソル ・ キ ー 

BASIC と 同様 に 上 下 に 1 行 , 左右 に 1 文字 単位 で 移動 し 
ます 
の ② の カー ソル ・ キ ー と 同じ 動作 を する も の 

- E で 上 , X で 下 , D で 右 , S で 左 へ カー ツル が 移動 
し ます 。 こ れ ら の キー は CTRL キー の 近く に あり , 左手 の 
小指 で CTRL キー を 押し な が ら 人 差し 指 や 中 指 を 使っ て 片 
手 で 操作 て きま す 。 
スク ロー ル 

^- W で て で 上, Z で 下 へ 1 行 分 スク ロー ル し ます 。 また, R 
で 上 , C で 下 へ 画面 の 半分 ( 12 行 分 ) を いち ど に スク ロー 
ルル し ます 。 
の ワー ド 単 位 の カー ソル 移動 

- F て 1 語 分 右 へ , A で 1 語 分 左 ヘ へ カー ソル が 移動 し ま 
す 。 
⑨ タ プ ブ 

^ 1 。HTAB キー で カー ソル が 8 カラ ム 移 動 し ます 。 こ 
れ を 使っ て リス ト を 見 や すく で きま す 。 ま た , タブ も 1 個 の 
文字 (ASCII コード の 09 是 ) と し て 見 な し て いま す 。 
⑬ そ の 他 

ファ イル (この 場合 。 ソ ー ス ・ プ ログ ラム の こと ) の 先頭 
へ 移動 する と き は ~ QR また は F 8 で , ファ イル の 終わ り へ 
は QC ま た は F 9 で 移動 し ます 。 ま た , QB また は F6 で 
ブロ ッ ク の 始め QK ま た は F 7 で ブロ ッ ク の 終わ り に 移動 
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らら 
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し ます (ブロ ッ ク は ブロ ッ ク ・ オ ペレ ーション を 参照 の こ 
と )。 


4-2-2 イン サー ト & デ リー ト 


ここ て 説明 する コマ ンド は 文字 や 行 の 挿入 や 削除 に 使い ま 
す 。 
⑳ オ ー バ ー ラ イト と イン サー ト ・ モ ー ド の 切り 換え 

テキ スト の 入力 に は 2 つの モー ド (オー バー ライ ト ・ モ ー 
ド と イン サー ト ・ モ ー ド ) が あり , 最初 に エディ タ を 起動 し 
だ と き は , オー バー ライ ト ・ モ ー ド に な っ て いま す (画面 の 
最上 段 に OVERWRITE と 表示 )。 オ ー バ ー ラ イト ・ モ ー ド 
で は , 古い テキ スト を 新しい テキ スト で 置き 換え た いと き に 
使い ます 。 文字 を 入力 する と カー ソル 位置 に あっ た 文字 が 入 
力 し た 文字 に 置き 換え られ ます 。 

イン サー ト ・ モ ー ド は 現在 の テキ スト の 中 に 新しい テキ ス 
ト を 挿入 し て いき ます 。 新しい テキ スト を 入力 する と, カー 
ツル より 右 に ある テキ スト は 右 に 移動 し て いき ます (画面 の 
最上 段 に INSERT と 表示 )。 V で 2 つの モー ド 間 の 切り 換 
ぇ を 行ない ます 。 
② 1 行 挿 入 

_ N で 1 行 挿入 が で き , カー ソル の 位置 は 変わ り ま せん 。 
まだ , イン サー ト ・ モ ー ド の とき に [ 央 キー を 押せ ば 1 行 挿入 
が で て でき, カー ツル は 次 の 行 の 先頭 に 移動 し ます 。 こ れ を 利用 
する と 行 の 分 割 が で きま す 。 分割 する に は カー ソル を 行 の 分 
割 し た い 所 に 移動 し て , N ま た は [ 剛 キ ー を 押し ます 。 
⑥ 1 文字 削除 

_G で カー ソル の 下 の 1 文字 を 削除 し ます 。 F 4 で カー ソ 
ル の 前 の 文字 を 削除 し ます (F4 は HH G と 同様 )。 G を 
利用 し て 行 の 連結 が で きま す 。 連結 す る に は 行 の 最後 に リタ 
ー ン ・ コ ー ド (0 DH) が 入っ て いる こと を 利用 し て . これ 
を GT 削除 する と 次 の 行 と 連結 きれ ます 。 
⑳⑥ 1 行 削除 
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- Y で カー ソル の ある 行 を 削除 し ます 。 


⑨ カ ー ソ ル 以 後 の 削除 
^ で カー ソル の ある 位置 か ら 右 を ワー ド 単 位 で 削除 し ま 
すっ 


~ QY また は F 15 で カー ソル の ある 位置 か ら 6 行 の 終わ り 
まで 削除 し ます 。Y, 十 と 混 同 し な いよ うに し て くだ る い 。 


4-2-3 ファ イン ド & リ ブレ イス 
これ は ソー ス ・ ブ ログ ラム の 中 か ら 任 意 の 文字 列 を 検索 
(ファ イン ド ) し た り , 他 の 文字 列 に 置き 換え る (リプ レイ 
大 ) コマ ンド て す 。 

ファ イン ド 
^QF を 押す と 画面 の 左上 で “Find 2? と 聞い て くる の で , 

捜し た い (50 文字 まで の ) 文字 列 を 入れ M キ ー を 押し ます 。 

この と き の 文 字 列 の 訂正 は DEL キー を 使い ます (カー ソ ツ 

ル ・ キ ー は 使え ませ ん ) 。 
検索 文字 列 を 指定 す る と , 次 に "Options ? (? For 

Info) "と 聞い て きま す 。 以下 の オ プシ ョ ン (大 文字 , 小 文 

字 共 に 可 ) が 使 を ます (オプ ショ ン の 並び 方 は 自由 )。 





B… 逆 方 向 に 検索 し ます 。 つ まり , 現在 の カー ツル の 位 

| 置か ら フ ァイル の 先頭 に 向かっ て 検索 を 行ない ます 。 

n…n は 1 か ら 99 ま で の 数 で す 。 現 在 の カー ソル の 位置 
か ら 6 数え て, n 番 目 に 表 わ れ る 検索 文字 列 を 検索 し | 
ます 。 

? … オ プシ ョ ン ・ メ ニュ ー を 表示 し ます 。 こ の 状態 で 再 

び オ プシ ョ ン の 指定 が で きま す 。 







ォ プ ショ ン の デフ ォ ル ト は 順 方 向 検索 (ファ イル の 最後 に 
向かう 検索 ), nm ニ 1 で す 。 


/ 


ここ 





オプ ショ ン の 例 
B … 現 在 の カー ソル の 位置 か ら 逆 方 向 に 1 番目 に 表 わ 
れる 検索 文字 列 を 検索 し ます 。 

10 …10 番 目 に 表 わ れ る 検索 文字 列 を 検索 し ます 。 
10B 

| b10… こ の 例 は 2 つと も 同じ 機能 で , 現在 の カー ソル の 
位置 か ら 逆 方 向 に 10 番 目 に 表 わ れ る 検索 文字 列 を 
検索 し ます 。 











ォ オプション の 並び を 入れ た だ たら 6, 最後 に 問 キ ー を 押し て 〈 だ 
る さい 。 オ プシ ョ ン で 何 も 指 定 し な いで [ 記 キ ー を 押す と , n= 
1 の オプ ション を 指定 し た の と 同じ で す 。 ま た だ た, オプ ショ ン 
で “B”" の み を 指定 する と “B 1” を 指定 し た こと に な り ま す 。 
検索 文字 列 が 見 つか る と , カー ツル は を その 文字 列 の と ころ に 
移動 し ます 。 検 索 は し を 使っ て 繰り 返す こと が で きま す 。 
② リ プレ イス 

- QA を 押す と ファ イン ド と 同様 に “Find 2? と 聞い て くる 
の て 検索 文字 列 を 入力 し ます 。 次 に “Replace With ?” と 聞 
いて くる の て 置き 換え た い (50 文字 まで の ) 文字 列 (置換 
文字 列 ) を 入力 し ます 。 ここ で , 単に [ 記 キ ー を 押せ ば 検索 文 
字 列 は 空 文字 列 に 置き 換え られ る (つま り 削 除き れる ) こと 
に な り ま す 。 さ る ら に , “Options ? (? For Info) "と 聞い 
て くる の で , 以下 の オプ ショ ン (大 文字 , 小文字 共に 可 ) を 
使い ます (オプ ショ ン の 並び 方 は 自由 )。 








B… 逆 方 向 に 検索 置換 し ます 。 つ まり , 現在 の カー ソル 
の 位置 か ら フ ァイル の 先頭 に か か っ て 検索 置換 を 行 
な いま す 。 

G… 大 域 検索 置換 も し ます 。 つ まり , 現在 の カー ソル の 
位置 に か か わら ず テ キス ト 全 体 を 探索 置換 し ます 。 






n…n は 1 か ら 99 ま で の 数 で す 。 現在 の カー ツル の 位置 
か ら 数 え 始 め て n 回 検索 文字 列 を 置換 し ます 。 
N… 確 認 な し で 置き 換え ます 。 検 索 文字 列 を 見 つけ る ご 
と に 止ま っ て “Replace (Y/N) ? ” と 聞く こと は あ 
り よ ませ ん 。 | 
? … オ プシ ョ ン ・ メ ニュ ー を 表示 し ます 。 こ の 状態 で 再 | 
び オ ォ オプ ション の 指定 が で きま す 。 


ォ プ ショ ン の デフ ォ ル ト は 順 方 向 に ロニ 1 て 確認 あり ( 検 
吉 文 字 列 を 見 つけ る ご と に 止ま っ て , “Replace (Y ノ 
N) と 聞く 〈) 検索 置換 て す 。 

また 。 検索 は SHIFT 二 BREAK キー で や め る こと が で き 
ます 。 












ォ プ ショ ン の 例 
N 5 … 検 索 文 字 列 を 挿し て 確認 な し で 置き 換え る こと を 
5 回 繰り 返し ます 。 

G N… 検 索 文字 列 を 挿し て 確認 な し で 置き 換え る こと を 
テキ スト 全体 に わた っ て 行ない ます 。 







ォ プ ブシ ョ ン の 並び を 入れ た だら 最後 に M キ ー を 押し て くだ さる 
⑧ 再 検索 & 再 検索 置換 

^ し で 最後 に 実行 し た 検索 ある い は , 検索 置換 を 再 実行 し 
ます 。 こ の コマ ンド に より , 同じ 文字 列 を 検索 する と き な と 
いち も いも 文字 列 を 指定 する 必要 が な く 《 く なり ます 。 こ れ は 新 し 
検索 , 検索 置換 する まで 有効 で す 。 


。 に 
4-2-4 ブロ ッ プ オペ レー ンション 
プロ ッ ク ・ オ ペレ ーション は , ファ イル (テキ スト ) の 一 
部 を 移動 , ユ ピ ー, 削除 な ど を し た り , ブロ ッ ク の 印字 , カ 
セッ ト ・ テ ー ブ へ ブロ ッ ク の セー ブ な ど に 使わ れ ま す 。 
ブロック を マー ク す る に は , テキ スト の 中 の ブロ ッ ク に し 
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だ い 部 分 の 先頭 の 文字 に カー ソル を 移動 し , 「 ブ ロッ ク の 始 
め 」 の マー ク を, 最後 の 文字 の 後に 「 ブ ロッ ク の 終わ り | の 
マー ク を 付け ます 。 こ の よう に マー ク を すれ ば ブロ ッ ク を 移 
動 し た り , コピ ー し たり で きま す 。 
⑱ プ ロッ ク の 始点 を マー ク 

_ KB また は F 1 で ブロ ッ ク の 始点 を マー ク し ます 。 マ ー 
カー は “っ” で 示さ れ ま す 。 す で に 始点 の マー ク が 指定 され て 
いる と き に 新た に 始点 の マー ク を 指定 する と , 前 に 指定 し た 
マー カー は 消 る され 新 し い マ ー カ ー が 設定 され ます 。 
②@ プ ロッ ク の 終点 を マー ク 

KK また は F 2 で ブロ ッ ク の 終点 を マー ク し ます 。 マ ー 
カー は “で "で 示さ る れ ま す 。 ee 
いる と き に 新た に 終点 の マー ク を 指定 する と, 前 に 指定 し 
マー カー は 消さ る れ 新 し い マ ー カ ー が 設定 され ます 。 
プロ ッ ク の コピ ー 

KC で マー ク し た ブロ ッ ク を 現在 の カー ツル か ら 先 に コ 
ビー し ます 。 元 の ブロ ッ ク は 変化 し ませ ん 。 マ ー カ ー は 元 の 
ブロ ッ ク の 方 に 付い て いま す 。 カー ソル の 位置 が ブロ ッ ク 内 
に ある と き は コピ ー さ る れず, エラ ー メ ッ セ ー ジ も 出 ま せん 。 
まだ , ブロ ッ ク の 指定 が 不 完全 の と き は エラ ー メ ッ セ ー ジ が 
出 ま す 。 
⑳ プ ロッ ク の 移動 

_KV で マー ク し た ブロ ッ ク を 元 の 位置 か ら 現 在 の カー ソ 
ル の 位置 に 移動 し ます 。 元 の 位置 か ら プ ロッ ク は 消 ぇ を , マー 

ー は 新しい 位置 に 移っ た ブロ ッ ク に 付き ます 。 カー ソル の 
位置 が ブロ ッ ク 内 に ある と き は 移動 で きず , エラ ー メ ッ セ ー 
ジ も 出 ま せん 。 
⑨ プ ロッ ク の 削除 

_KY で マー ク し た ブロ ッ ク を 削除 し ます 。 マ ー カ ー は プ 
ロッ ク と 共に 削除 きる きれ, カー ソル が ブロ ッ ク 内 に あっ て も 削 
除 る され ま す 。 
⑯ マ ー カー の 削除 

KKH ま た は F 3 で 始点 , 終点 マー カー を 消し ます 。 マー 





カー は G や Y で 消す こと も で きま す 。 マーカ ー を 付け た 
まま , コン パイ ル す る と エラ ー に な る の で 必ず 消し て か ら 行 
な っ て くだ さい 。 
@ プ ロック の 印字 

- KKP で マー ク し た ブロ ッ ク を プリ ンタ に 印字 し ます 。 
⑬ プ ログ ラム の セー プ ブ 

KKS を 押す と “Save Filename?:" と 聞い て くる の で 
ファ イル 名 (ファ イル 名 : 13 文字 , 拡張 子 : 3 文字 ) を 入 
力 し て , 最後 に 問 キー を 押し て 《 だ きる い 。 フ ァイル 名 の 訂正 
は DEL キー, カー ツル ・ キ ー が 使え ます 。 フ ァイル 名 の 指 
定 を する と テキ スト (ソー ス ・ プ ログ ラム ) を すべ て カセ ャ セッ 
ト ・ テ ー ブ に セー ブ し ます 。 カ セッ ト ・ テ ー プ が セッ ト さ る され 
て いな いと き や 。 テー ププ ・ エ ンド の と き は 何 も し ませ ん 。 
ャ ー ブ は ASCII 形式 で 行なわ る の で , BASIC な と ど で 
ASCII セー ブ き され だ た テキ スト し と 互換 性 が あり ます 。 
⑳⑥ プ ログ ラム の リー ド 

^-KR を 押す と “Read Filename? : "と 聞い て 〈 く る の で , 
ファ イル 名 を 入力 し て , 最後 に キー を 押し て くだ る い 。 フ 
ァイル 名 の 指定 も を すると, カセ モット ・ テ ー プ か ら リ ー ド し た 
テキ スト は 現在 の カー ソル か ら 先 に 挿入 る られ ます 。 フ ァイル 
名 の 指定 を し な けれ ば 最初 の ファ イル を リー ド し ます 。 ファ 
イル は ASCII セー プ ブ きれ だ も の で な けれ ば リー ド で きま せ 
Wo 
⑩ プ ロック の セー プ 

KW を 押す と “Write Hilename?:" と 聞い て くる の 
で , ファ イル 名 を 入力 し て , 最後 に キー を 押し て 〈《 だ さる 
い 。 ブ ロッ ク の マー カー は セー ブ さ る れ ませ ん 。 
プロ グラ ム の 削除 

~KQ を 押す と “Abandon a File? (Y/N) "と 聞い 
て くる の で , Y (また は 7y) を 押す と プロ グラ ム を すべ て 削 
除 し ます 。Y 以 外 の キー を 入力 する と 何 も し ませ ん 。 
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4-2-5 その 他 
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⑱ ヘ ルプ 

- で 表 4-2 の よう な コマ ンド 表 が 表示 る きれ ます 。 これ に 
ょ より コマ ンド を 忘れ た と き は , マニ ュ ア ル を 見 直す 必要 は あ 
り ま せん (も っ と も と いう コマ ンド を 忘れ た と き は 論 
で す が …)。 
② の プロ グラ ム の 印字 

- P で プロ グラ ム (テキ スト ) を すべ て プリ ンタ に 印字 し 
えす 。 
ライ ン ・ サ ー チ 

_QL を 押す と “Line Number? : "と 聞い て くる の で 
カー ソル を 移動 し た い 行 番号 (5 桁 ま で の 数 字 ) を 入力 し 
て , 最後 に キー を 押し ます 。 こ の と き の 行 番号 の 訂正 は 
DEL キー を 使い ます (カー ソル ・ キ ー は 使え ませ ん ) 。 指 定 
し た 行 番号 が 存在 すれ ば その 行 の 先頭 に カー ツル が 移動 し ま 
す 。 存在 し な い “0 行 "を 入力 する と テキ スト の 先頭 に カー ソ 
ル は 移動 し , テキ スト の 最後 の 行 数 より も 大 きい 番号 を 指定 
する と テキ スト の 最後 に カー ソル が 移動 し ます 。 
⑳ コ マン ド ・ モ ー ド に 戻る 

~ QM ま だ た は, F5 で コマ ンド ・ モ ー ド に 戻り ます 。 





MON [中 また は F 6 で モー ニー タタ が 起動 し ます 。HuBASIC 
の 内 蔵 の モニ タ と ほとん と ど 同 じ で す が R, 避 コ マン ド が 異な 
り X,。 日 コマ ンド が 追加 され て いま す 。 


4-3-1 R コ マン ド 

この コマ ンド を 実行 する と モニ タ か ら 抜 け ) コマ ンド ・ モ 
ー ド に 戻り ます 。 戻ら な いと き は , スタ ッ ク が 破壊 きれ て い 
る と き で すか ら 5, 忌 コ マン ド で “"G14A3 因 と し て ホッ 
ト *・ ス メー ト し て (くだ る さい 。 


4-3-2 G コ マン ド 

指定 し た 番地 の サブ ルー チン を コー ル し ます 。 こ の と き に 
ブレ ー ク ・ ポ イン ト を 最大 2 個 ま で 設定 可能 て す 。 な は コマ ン 
ド は ブレ ー ク ・ ポ イン ト の 設定 の 仕方 で , 次 の 3 種類 の 型 が 
あり ます 。 






①G nM 

②Gn a 固 

③Gn a b 固 

(ここ で n, a, b は 16 進 数 の 4 桁 ま で の 数 値 ) 


(① は n で 示さ れ た 番地 か ら 始 ま ぁ る ササ プル ー チ ン を コー ル す 
る も の で , n を 省略 し た 場合 , 現在 の プロ グラ ム ・ カ ウン タ 
(X コ マン ド 参 照 ) が 示す アド レス か ら の プ ブログ ラム を コー 
ル し ます 。 

② は ブレ ー ク ・ ポ イン ト を 1 個 設 定 し た も の で , a で 示 る 
れる 番地 に 達し た と き プ ログ ラム の 実行 が スト ッ プ し , その 


4-3 モニ タ 
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と き の レ ジス タ と フラ グ を 表示 し ます 。 a の 位置 に ある 命令 
は 実行 る きれ ませ ん 。 n を 省略 し た 場合 , 現在 の プロ グラ ム ・ 
カ ソ ン タタ が 示す アド レス か 5 の ブロ グラ ム を コー ル し て , プ 
レー ク ・ ポ イン ト を a に 設定 し ます 。 

⑬③ は 4 と b と いう 2 個 の プレ ー ク ・ ポ イン ト を 設定 する も 
の で , どちら 6 か の ブレ ー ク ・ ポ イン ト に 達し た と き プ ログ ラ 
ム は スト ッ プ し ます 。 nn を 省略 し た 場合 , 現在 の プロ グラ 
ム ・ カ ウン タ が 示す アド レス か ら の プロ グラ ム を コー ル し て 。, 
ブレ ー ク ・ ポ イン ト を a と b に 設定 し ます 。 


4-3-3 XX コマ ンド 
この コマ ンド で レジ スタ , フラ グ の 内 容 を 表示 ・ 変 更 す る 
こと が で きま す 。 双 コマ ンド に は 次 の 2 種類 の 型 が あり ます 。 








①X [Jl 
②X メ レジ スタ 名 


① は レジ スタ , フラ グ の 内 容 を 表示 する も の で す 。 フ ラグ 
は 2 進数 で も 表示 る れ ま す 。 た だ だ し , 裏 レ ジス タ の 内 容 は 表 
示し ませ ん 。 

② は 指定 され た レジ スタ の 内 容 を 変更 する も の で , 指定 で 
きる レジ スタ は A, F, B, C, D, E, H, L, AF, B 
C。 DE。 十 L。 1 双 。、 TI Y。 98P。 PF も で す 。 


4-J-4 日 コマ ンド 


この コマ ンド は 16 進数 の 加減 乗除 を 行ない ます 。 時 コマ 
ンド に は 次 の 4 種類 あり ます 。 





①Ha+b[ 
②Ha-b[M 
3③Ha*b[ 過 


④Ha/b[M 

(a, b は 16 進 数 で 最大 4 桁 , , a, 演算 子 。 b と の 
間 に は 任意 の スペ ー ス を 置く こと が 可能 。 た だ し 同一 行 
に 限る ) 









① か ら 6③ の 演算 結果 は 16 進数 で 表示 きれ ます 。④⑭④ の 演算 
結果 は 16 進数 で 商 。 余り の 順序 で 表示 され ます 。 
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Stellar は 小 規模 ゲロ グ ラム の 開発 言語 で , 文法 的 に は , 
C と Pascal を 合わ せ た だ た よう な 構造 (構造 化 プ ログ ラミ ン 
グ , 全域 変数 と 局所 変数 が 可能 。 再帰 的 プロ グラ ミン グ ) を 
し て お り , 簡単 な ゲー ム や 制御 用 の プロ グラ ム な ど に 適用 で 
きま す 。 ま た , Stellar コン パイ ラ の オブ ジェ クト ・ ブ プログ ラ 
ム は ROM 化 可能 で す 。 

Stellar の 最大 の 特徴 は , 変数 の メモ リ 割 りつ け , お よび 
演算 が すべ て バイ ト (符号 な し 8 ビット) 単位 で ある こと で 
す 。 デ ー タ が バイ ト 長 で すむ よう な プロ グラ ム な ら , 他 の コ 
ン パ イラ に 比べ 小さき な オブ ジェ クト ・ プ ログ ラム を 生成 する 
こと が で きま す 。Stellar に つい て は 「 新 言語 作成 の 技法 」 
(大 貫 広 幸 著 . 小 社 刊 ) で , CPM バー ジョ ン が アセ ンプ 
ル ・ リ スト て 公開 さる れ て いま す 。 


4-4-1 Stellar の 構文 と 文法 


構文 は 構文 凶 ( 図 4-1) を 参照 し て くだ さい 。 
ここ で は , Stellar の 文法 を 次 の 九 つ に 分 け て 解説 し ます 。 
・Stellar プロ グラ ム の 構成 要素 
・ ブ ログ ラム の 構造 
文 
・ 式 
・ 変 数 と 定数 
Stellar の 言語 的 な 特徴 は 以下 の 通り で す 。 
⑩ 英 小文字 ベ バース で プロ グラ ム を 書く 〈。 
@ サ ブ プルー チン は な く 〈(, すべ て 関数 と し て 記述 する 。 
⑥ 関 数 は 値 を 戻 き な く て も よい 。 
⑳ 式 の 中 で 変数 へ の 代入 が で きる 。 ま た だ , 代入 を し な い ぃ 式 も 
か ける 。 


4-4 コン バイ 


⑥ CPU 内 の レジ スタ (b, ix, i Y) を 使う こと が て き 
る 。 


て 時 


英字 の AF 
る い は af / 


文字 列 定数 


。 制御 コー ド ま た は 二 重 
引用 符 以外 の 文字 





PP 


1 〇 / 


-(@%- 


任意 の 文字 





プロ グラ ム 名 





cpp oee 肖 4 


10O8 
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変数 宣言 部 





Ce 
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注 ) デー タ 名 と コロ ン (: ) の 間 に 
分 離 符 を 入れ て は な ら な い 。 


関数 の 頭 書き 


reCurSiVe ば mM 詳 
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注 ) ラベ ル と コロ ン (: ) の 間 に 
分 離 符 を 入れ て は な ら な い 。 





愉 NI | 詞 || 油 








うつ づく 
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| 還 ン 


until 文 が 


for 文 


EEEO 
OrETrO 





っ づく 


作 蛇 責 馬 > つづ つき 


return 文 


Inline 文 


Inline リー 





ウィ 
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も 
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注 ) 定義 と 


rー ュ 
上 星 . 


言 
戸 


InCclude ) 


| ファ イル 名 [ 
の 中 に は め break は 書け な い 。 





を 





4 還 較 匠 つつ づき 
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すす の 
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条件 演算 関数 


閉 除 チー ニー 








4-4 コン パイ ラ 





タ 宣言 部 や inline の で 
の み 使 用 可能 。 
注 2) 関数 名 と 左 カ ッ コ "("、 そ し 
て 右 カ ッ コ ) の 間 に 空 日 ヨコ ーー 
以外 の 分 離 符 を 入れ て は な | 関数 名 [し ) 


ら な い 。 


[1] Stellar プロ グラ ム の 構成 要素 

Stellar の プロ グラ ム は , 予約 語 , 名 前 , 数 値 , 定数 , 文 
字 定 数 , 文字 列 定数 , 特殊 記号 , それ に 分 離 符 と 注釈 の 八 つ 
で 構成 きれ て いま す 。 





Stellar は 59 個 の 了 予約 語 を 持っ て いま す ( 表 4-4)。 英 大 文 
字 で も 英 小 文字 で も 同じ 意味 に な り ま す 。 だ と ん え は 
eWHILE"。“WHiLe", “WhiLe" は いずれ も 予約 語 “while" 
L 判断 され ます 。 
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用 枝 還 > Stellar の 予約 語 





dex InC 
debng Include not 
else Inline Or 
elseif InX Overflow 
ext IX Darity 
Tor IY Dlus 
gO Ildx DOrt 
loop DrOg 
low FeCUuFrSIVG 


memory return 


名 前 は 変数 や 定数 , 関数 な ど を 表し ます 。 

名 前 は , 英 数 字 (AZ, a 一 2 0 一 9) と アン ダー ス 
コア (_- ) か ら な る , 数 字 以 外 の 文字 で 始ま る 文字 列 で す 。 
長き る に 制限 は あり ませ ん が , 意味 を 持つ の は 最初 の 12 文字 
ま て て す 。 
代目 し い 名 前 の 例 

ん B し 

- AdO0O123 

abcdefghijk1mn… 和 初め の 12 文 字 (1 ま で ) 

まで が 名 前 と な る 。 
abD XY/Z 
人 @ 誤 っ た 名 前 の 例 

1AB … 数 字 で 始ま っ て いる 。 

ab@cd … 名 前 の 中 に @ ( 英 数 字 で も _ で も な い ) が 

ある 。 

1 ow … 了 予約 語 は 名 前 と し て 使え な い 。 





数 値 定数 に は , 10 進数 と 16 進数 が あり ます 。 
10 進数 は 数 字 (0 一 9 ) だ けず で 構成 され た 文字 列 で , 0 
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ー65535 まで の 値 で な けれ ば な り ま せん 。16 進数 は ドル 記号 

($) で 始ま る 数 字 と 英字 AA 一 F あ る い は a 一 f て 構成 され 
か た 文字 列 で , 16 進数 で 0 ーFFFF まで の 値 で な けれ ば な り 
ませ ん 。 
例 

10 進数 123 0043 1023 32924 

3292 255 
16 進 数 $0 $78 $002b $3ff 
$8046 $ff 







文字 定数 は 文字 目 身 を デー タ と し ます 。 

文字 定数 は 制御 コー ド 以 外 の 1 文字 を 引用 符 ('”) で 囲 ん 
だ も の で , 文字 コー ド を 数 値 と し て 扱い ます 。 右側 の 引用 符 
は 省略 する こと が で きま す 。 
例 

A'…$41 と 同じ mi…$63 と 同じ 

"アア *… $ B1 と 同じ が も 27 と 同じ 

YA …$41 と 同じ 半 …$5C と 同じ 






文字 列 定 数 は 文字 列 自身 も デー タ と し て メモ リ 上 に 格納 す 
る 場合 に 使い ます 。 
文字 列 定 数 は 二 重 引用 符 (") で 囲ま れ た 0 文字 以上 の 文 
字 列 の こと で す 。 二 重 引 用 符 を 二 つ っ 続け て 書け ば 文字 列 の 中 
に 一 つの 二 重 引用 符 を 入 し る こと が で きま す 。 
例 
り ABC012" … 文 字 列 ABC012 が メモ リ に 格納 され る 。 
yABCabc”  … 文 字 列 ABC"abc が メモ リ に 格納 され 
る 。 
0 … 空 の 文字 列 。 何 も 格 納 さ る されない 。 
り カ ナ 漢字"  … カ ナ 文 字 , 漢字 も 使用 で きる 。 だ だ し 
漢字 は シフ ト JIS コ ー ド だ け を 使う 。 
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すこ ar 


特殊 
4-5) 。 
<W 記 意 勘 特殊 記号 


PF 


記号 に は 33 個 の 演算 子 と 区 切り 記号 が あり ます ( 表 

















分 離 符 に は 空白 文字 (タブ も 空白 ), 行 の 終わ り , 注釈 の 
ニニ つが あり , 予約 語 , 名 前 , 定数 , 特殊 記号 を 区 切る た め に 
用 いら 5 れ ま す 。 これら が 構文 的 に 明確 に 識別 で きる 場合 に は 
省略 で きま す 。 


=a and SF : 
人 T すす ff 和 馬 † † 
T は 分 離 符 が 必要 な 部 分 
1 は 分 離 符 が 必ず し も 必要 で な い 部 分 


if aa> 三 $b then b 
せ 党 T 












注釈 は /* で 始ま り */ て 終わ る 文字 列 で す 。* ノ の 2 文 
字 を この 順 で 注釈 の 文字 列 中 に 書く こと は で きま せん 。 
注釈 は コン パイ ル ,。 実行 に 何ら 影響 も 与 えま せん 。 


「 2 ] プロ グラ ム の 構造 
Stellar の プロ グラ ム は 主 プ ログ ラム と いく つか の 関数 か 
ら な っ て いま す ( 図 4-2)。 
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プロ グラ ム の 構造 


プロ グラ ム の 頭 書き 


全域 的 定数 の 定義 
全域 的 用 数 , デー タ の 宣 


( 主 プログラム) 文 の 並 び 


全域 的 定数 の 定義 
全域 的 変数 デー タ の 


Ro 呈 に 2 


還 ーー 一 1 
局所 約 変数 デー タ の ー 





(1) プロ グラ ム の 頭 書き 

Stellar の プロ グラ ム は 必ず 頭 書き か ら 始 ま ら な けれ ば な 
り ま せん 。 

頭 書き で は プロ グラ ム に 名 前 を つけ , コン パイ ラ に 対す る 
指示 を 与え を ます 。 この 指示 は オプ ショ ン ・ ス イッ チ し と いい , 
次 の 皿 つ が あり ます (英字 は 小文字 で も 大 文字 で も 可 )。 
%D: ア ドレ ス … オ プ ジ ェ クト ・ コ ユー ド の ロー ド 開 始 ア ド 

レス を 指定 する 。 
9%d : アドレス … 変 数 や ワー ク ・ エ リア の 先頭 アド レス を 
指定 する 。 
9%S : ア ドレ ス … ス タッ ク の ボトム ・ ア ドレ ス を 指定 する 。 
odebug デバッグ ・ 邊 一 下 て コン パイ オル する 。 

%D, %d, %S は コン パイ ル 時 の アド レス を 指定 する も 

の で , 各 ア ドレ ス は 図 4-3 の よう に 対応 し ます 。 指定 され な 
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いと デフ ォ ル ト の アド レス に な り ま す 。 デ フォ ルト は %%D ・ 
$ b000, 欠 d: $d900, 欠 s: $f900 と な り ま す 。 

% debug を 指定 し な いと , コン パイ ラ は デバ ッ グ の た め の 
文 を 注 秋 と し て 扱い ます 。 E 





ゅ オプ ショ ン ・ ス イッ チ %p, 9%d, 96%s と オプ ジェ クト ・ プ ログ ラム 


22 Dp:xxxx - | 低 ア ドレ ス 






ラン タイ ム ・ ル ー チ ン 





MR 短 た と えば 


。 2p:0, d: も 2000.s: も 2400 
と オプ ショ ン ・ ス イッ チ が 指定 され た 場合 . 
コン パイ ラ は 次 の よう に オブ ジェ クト ・ コ ー ド 
を 生成 し ます 
アド レス (16 進 ) 
0000 ェ 一 一 


2 の 2d:nnnn 一 町 ーー 





の s:mmmm 


注 ) xxxx, nnnn, mmmm は 数 値 定 数 の こと 。 





スタ ッ ク ・ エ リア 


2 3FF ヒ 


例 
prog TEST1( ) : 
… プ ログ ラム 名 は TEST 1, オプ ショ ン ・ ス イッ チ の 指定 


し 。 
prog utl (6D:$9000.% め di:$A000. % め Ss・ 
$F000) : 


… ブ ログ ラム 名 は ut 1 オブ ジェ クト ・ コ ー ド は 16 進数 
で 9000 番地 か ら , 変数 , ワー ク ・ エ リア は AO000 番地 , 
スタ ッ ク ・ ボ トム は F000 番 地 。 

prog fxn (%debug, %d : 39168) : 

… ブ ログ ラム 名 は fxn で ,。 コン パイ ル は デバ ッ グ ・ モ ー 
ド , オブ ジェ クト ・ コ ユ コード は 39168 (16 進数 で 9000) 番 
地 か ら 出 力 。 


12 ぢ と 


し 2 生 を 

定義 と 宣言 は , 定数 定義 部 数 宮 言 部 デー タダ 宣言 部 , 
ぉ よび コン パイ ル 制 御 文 か が ら な り ま す 。 

コン パイ ル 制 御 文 に つい て は [3] で 解説 し て いま す の 
で 。 そちら を 参照 し て くだ さい 。 

定数 定義 文 は アセ ンプ ブラ 言語 の EQU 命令 に 相当 する リフ の 
で 。 定義 きれ た 名 前 の こと を 定数 名 と いい ます 。 定数 名 は 
ログ ラム 中 で は 数 値 定 数 , 文字 定数 と 同等 に 扱わ れ ま 

定数 名 で 定義 で きる の は , 定数 式 で 計算 る れ だ た 16 ビッ ト 
長 の 値 で す 。 定 数式 と は 定数 (数 値 や 文字 ある い ば 定 義 す 


み の 他 の 定数 名 な ど ) 同士 を 加減 し た 式 の こと て , 計算 は 常 


に 16 ビッ ト 長 で 行わ れ オ ー バ ー フ ロー は 無視 る れ ま す 。 


cons cl: 三 120, xyz : 三 和 af, c2 : 三 c1 十 a 一 xyz: 


| | 


| 
定数 名 cl を 定数 名 xyz を 定数 名 c2 を 
120 と 定義 $af と 定義 "cl 十 'a' 一 xyz 
の 計算 結果 の 値 と 定義 





変数 宣言 部 は , プロ グラ ム 中 で 使う 変数 を 宣言 する 部 分 
で , 使わ れる 変数 は すべ て ここ で 宣言 し て おか な けれ ば な り 
ませ ん 。 こ こ で は 変数 に アド レス を 割り つけ る だ け で , 初期 
値 は 出力 し ませ ん 。 で すか ら , 初期 値 が 必要 な 変数 は ブロ グ 
ラム 中 で 値 を 設定 し な けれ ば な り ま せん 。 図 4-4 は 変数 の 富 
言 と メモ リ へ の 割り つけ を 示し た 例 で す 。 

デー タ 宣言 部 は 定数 を メモ リ 上 に 記憶 する た め の も の て , 
記憶 し た 定数 に は デー タ 名 が つけ られ ます 。 mt 
で き な い こと を 除き , ブロ グラ ム 中 で 変数 と 同等 に 使う 
が て きま す 。 

定数 の 前 の byte や word は , 記憶 が バイ ト 単 位 な が な の か ワ 
ー ド 単位 な の か を 指定 する も の で す 。 バ イト で 記憶 する 場合 
は byte の 指定 は 省略 で びき ます 。 ま だ, word の 代わ り に # を 
使う こと も で きま す 。 


4-4 コン パイ サウ 


1〆Z う 


d|: byte |I20, word 3fe, 「ABC 


Yabc"12"。 0, ササ 25| : 


- ト エ よ て 


16 3| 2 2|3 


nn エー 中 
骸 叶 は さ 傘 環 部 








変数 の 宣言 と メモ リ へ の 割り 付け 例 





| 変数 の 宣言 
Var a, b at($5c), c【0〕, d(2J,e(l), f(3〕 at($80),。 gt5)。hi 
メモ リ へ の 割り 付け 状態 
変数 . ワー ク ・ エ リア | 


pb 一 一 005C 番 地 
† 


注 ) e[| ] と し て いる 所 は 
単に e と し て も 同じ 。 


但 at の 付か な い 変 数 は め d で 設定 し た エリ 僅 a の 付い た 変数 は 指定 され た アド レス を 
ア の 方 に 取ら れる 。 一 つの 変数 の 大 き さ は 変数 の アド レス と し , 変数 . ワー ク ・ エ リア 


すべ て | バイ ト で , [定数 式 ] で 定数 式 の 計 に は 信 域 を 取ら な い 。 
算 結 果 の 長 さ (バイ ト 数 ) だ け の 領域 が 取 at の 付い た 変数 に 〔 定 数式] を 書い て も そ 
られ る 。 れ は 無視 され 注釈 と し て 扱わ れる 。 
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( 3 ) 主 プ ログ ラム 
Stellar の プロ グラ ム は 必ず 主 プ ログ ラム か ら 実 行き る れ ま 
す 。 主 グロ グラ ム は 一 つの 複合 文 と し て 書か れ ま す 。 


(4 ) 関数 の 頭 書き 

関数 の 頭 書 き は , ここ か ら 関 数 が 始ま る こと を 宣言 する た 
め の も の で , 一 つの 関数 は 関数 の 頭 書き と プ ブロック に より 構 
成 さ れ て いま す 。 

再帰 的 に 呼び 出す 関数 は , 関数 名 の まえ に recursive と 書 
か ね ば な り ま せん 。recursive と 書か れ て いる 関数 は , 呼び 
出る きれ た と き 局 所 的 な 変数 の 値 あ を ス タック に 保存 し ます 。 
Stellar で は , 関数 に 実 引数 の 値 を 渡し ます 。 引 数 に は 8 
ビッ ト 長 と 16 ビット 長 の 二 種 類 が あり , 8 ビッ ト 長 の 値 は 
仮 引数 (局所 的 な 変数 ) に , 16 ビッ ト 長 の 値 は ix ある い は 
ijy の イン デック ス ・ レ ジス タ に 格納 され ます 。 関 数 の 頭 書き 
に 書か れる 仮 引 数 や イン デック ス ・ レ ジス タ 名 は 次 の よう な 
意味 を 持っ て いま す 。 


順 序 は 変え られ な い 。 
関数 名 ( 仮 引数 |, 仮 引 数 2, …。 仮 引数 n : 半 ix 。#jy ) 





仮数 の 数 は 0 て 32 個 ま で, 
33 個 以上 書け る が 33 個 目 以降 
に は 実 引数 は 格納 され な い 。 


て 上 と 同様 。 


4 コシ パイ 鐘 


[ 16 ビ ッ ト 長 の 値 を イン デック 
スズ ・ レジ スタ Iiy に 受け ける 。 | 


せ の 指定 が な いと , 関数 呼び 出 
し 前 の イン デック ス ・ レ ジス タ iy の 
内 容 が 保存 され , 関数 実行 後 も 
ijy の 内 容 は 変化 し な い 。 

の 指定 が ある と , イン デ ッ 
クス ・ レ ジス タ ijy の 内 容 は 保存 
され ず , 関数 内 で iy に 対す る 操 
作 が ある と ijiy は 変化 する 。 


記 ン デ ックス ・ レ ジス タ ix に つい | 


だ こっ 
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(5) ブロ ッ ク 

ブロ ッ ク は , 定義 と 宣言 , お よび 一 つの 複合 文 に よ 5 構成 
る れ ま す 。 

ブロ ッ ク 内 で 定義 あ も るい は 宣言 され た 定数 名 , 変数 名 。 デ 
ー タ 名 は 局所 的 な 名 前 と し て 扱わ れ , 有効 範囲 は その 関数 内 
だ だけ で すず 。 


(6 ) 名 前 の 有効 範囲 

Stellar で は 名 前 の 有効 範囲 を 次 の よう に 決め て いま す 。 
欠 局 所 的 な 名 前 

仮 引数 。 な よび ブロ ッ ク 内 で 定義 され た 定数 名 , 変数 名 , 
デー タ 名 は 局所 的 な 名 前 で , 同一 関数 名 で の み 有 効 で す 。 主 
プロ グラ ム や 他 の 関数 か ら は 使え ませ ん 。 全域 的 な 名 前 と 同 
じ 名 前 を 局所 的 な 名 前 と し て 定義 , 宣言 し た 場合 , その 関数 
内 で は 局所 的 な 名 前 を 優先 し , 全域 的 な 名 前 の ほう は 参照 で 
きま せん 。 

の 全域 的 な 名 前 

局所 的 な 名 前 以外 は すべ て 全域 的 な 名 前 で す 。 全域 的 な 名 
前 は , 主 プ ログ ラム や 関数 の 別 な く プ ログ ラム 全体 で 共通 に 
使え ます 。 全 域 的 な 名 前 に は 関数 名 や 定数 名 , 変数 名 , デー 
タタ 名 が あり , 関数 名 以外 は 定義 , 宣言 され だ 以後 有効 に な り 
ます 。 関 数 名 に つい て は , 書か れ て いる 場所 に よら ず , すべ 
て の 場所 で 有効 で す 。 


3 す ] 充 (【( ス テー トメ シト ) 

文 は 実際 に 計算 や 仕事 を する も の で , 図 4-1 に 示し た よ ょ 5 
に 15 種類 あり ます 。 式 は 次 の [4] で 解説 する と し て , こ 
こ で は 式 以外 の 文 に つい て 解説 し ます 。 

文 に は ラベ ル を つけ る こと が で きま す 。 ラ ベル は 主 プ ログ 
ラム や 各々 の 関数 内 で の み 有 効 な 局所 的 な 名 前 で す 。 


(1) 空 文 
何 の 動 作 も しない 文 の こと で す 。 


4-4 コン パイ ラフ 


(2 ) 複合 文 
複合 文 は いく つか の 文 を まとめ て 一 つの 文 と し て 扱う も の 
で , 文 が 書か れ て いる 順に 実行 が 行なわ れ ま す 。 


(きせ 文 

if 文 は 式 の 計算 結果 が ゼロ 以外 の と き を 真 , で ロ の と き を 
偽 と し て いま す 。 真 の と き は then の 次 の 文 を , 偽り と き は 
else の 次 の 文 を 実行 し ます 。else の 次 の 文 が if 文 の と き は , 
elseif と する こと が で きま す 。 

図 4-5 は if 文 の いく つか の 形式 を 流れ 図 で 表わし だ た も の 
贅 す 。 





ff 式 then 文 if 式 then 文 | else 文 2 







ゼロ 以外 で 式 の 計算 


結末 は ? 











f 式 | then 娘 | f 式 | then 娘 | 
elseif 式 2 then 交 2 elseif 式 2 then 文 2 
elseif 式 n then 文 n | elsief 式 n then 文 n 








else 文 n 十 | 







式 | の 計算 
結果 は ? 





式 2 の 計算 ~ 
結果 は ? 


めこ 
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(4 ) while 文 
線 り 返し の た だ ため の 文 の 一 つ で す 。 

while 文 は , 式 の 計算 結果 が ぜ ロ に な る ( 偽 に な る ) まで 
式 の 後ろ の 複合 文 を 繰り 返し 実行 し ます 。while 文 で は 始め 
に 式 の 計算 結果 を 調べ る た め , 場合 に よっ て は 後ろ の 複合 文 
が 一 度 も 実行 きれ な いこ と が あり ます ( 図 4-6)。 

性 g 味 尋 参 yhile 文 







(5 ) until 文 

until 文 も 繰り 返し を 行なう ため の 文 で す 。 

until 文 は ます until の 前 の 複合 文 を 実行 し , その 後に 式 の 
計算 を 行ない に ます 。 そし て 結果 が ゼロ ( 偽 ) な ら る 6 に も う 
一 度 until の 前 の 複合 文 を 実行 し , 結果 が ゼロ 以外 ( 真 ) な 
ら 繰り 返し を 終え ます ( 図 4-7)。 


(6 ) for 文 
for 文 は 流れ 図 で は 図 448 の よう に な り ま す 。for の 次 の 
変数 を 特に 制御 変数 と いい ます 。 : = の 後 の 式 を 初期 値 , to 
の 後 の 式 を 終値 と し て , 制御 変数 が 





制 仙 変 数 の 値 > 終値 


4-4 コン パイ ラ 


until 文 





文 n ) until 式 : 





for 文 





for 制御 変数 := 式 | to 式 2 for 制御 変数 := 式 | to 式 2 by 式 3 
( 壇 | 文 2 … 廊 n ) ( 変 ] 変 @ … 文 nh 】 


制御 数 式 


_ temp3 て 式 3 











制御 変数 一 





制御 変数 






制御 変数 一 
| 制御 用 数 temp3 





| YeSs 


| 注 ) temp2, temp3 は 一 時 記憶 の た め の ワ ー ク 。 
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ある い は 






と な る まで 繰り 返し ます 。 こ の し とき, by 式 の 増分 が 指定 き 
れ て いれ ば 制御 変数 に その 増分 を 加算 し , 増分 の 指定 が な け 
れ ば 制御 変数 を 十 1 し ます 。for 文 で は 初期 値 , 終値 , 増分 
を 示す 各 式 を 繰り 返し の 前 に 計算 し ます 。 初期 値 は 制御 変数 
に 代入 きれ , 終値 , 増分 は メモ リ 上 の 一 時 記憶 域 に 記憶 し ま 
す 。 繰り 返し の 途中 は その 領域 に 記憶 し た 値 を 使い ます 。 
Stellar の 場合 , 変数 は 1 バイ ト 長 ど だ け な の で , 繰り 返し 回 
数 の 最大 は 





と し だ た と き の 256 回 で す 。 


( 7 ) ]oop 文 

loop 文 は 指定 され た 回 数 を 単純 に 繰り 返す だ け の 文 で す 。 
loop 文 を 流れ 図 で 表わす と 図 449 の よう に な り ま す 。 単純 
な 繰り 返し な ら for 文 より も loop 文 の ほう が コン パイ ル 後 
の オブ ジェ クト ・ コ ー ド が 少な く て すみ ます 。 特 に 制御 変数 
名 の 代わ り に # を 使う と b レ ジス タ で ルー ププ する よう な オデ ズブ 
ジェ クト ・ コ ー ド が つく られ る た だ ため , さらに 効率 が よく な り 
ます 。 


( 8 ) goto 文 
ラベ ル が 書か が れ て いる 文 に 実行 を 移し ます 。 


(9 ) exit 文 
復 全 文 や while 文 , until 文 , for 文 , 1oop 文 の 繰り 返し 
か ら 抜 け 出る と き に 使い ます ( 図 4-10)。 


(10) return 文 
関数 の 実行 を 終わ り , 呼び 出し だ た 主 プロ グラ ム や や 関数 に 戻 


4-4 コン パイ ラ 
る と き に 使い ます 。 関数 の 最後 の return 文 は 省略 し て も 自 


動 的 に 挿入 る られ ま す 。 ま た だ , 主 プ ログ ラム 内 の return 文 は 
stop 文 と 同じ 意味 で す 。 


loop 文 





loop 制御 変数 , 式 { 女 | 廊 2 … 娘 n ) 
loop 北 , 式 { 廊 | 文 2 … 文 n ) 


制御 変数 一式 





レジ スタ B 式 












レジ スタ Bー 
レジ スタ | 








制御 変数 
制御 変数 一 | 








ext 文 が 実行 され る と 矢印 の 先 の 
文 へ 実行 を 移す 。 
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(11) stop 文 
プ ブログ ラム を 終了 る せる た だ た め の 文 で す 。 主 グロ グラ ム の 最 
後 の stop 文 は 省略 し て も 自動 的 に 挿入 る られ ます 。 


(12) inline 文 
inline 文 は ブロ グラ ム 中 に 機械 語 命令 や デー タ を 入れ る た 
め の 文 で す 。 


(13) イン デック ス 操 作文 

イン デック ス 操 作文 は 二 つ の イン デック ス ・ レ ジス タ ix, 
1V を 操作 する た め の 文 で , 次 に 示す よう な 5 個 の 文 が あり 
ます 。 


D set 文 
set 文 は イン デック ス ・ レ ジス タ に 定数 や 値 を セッ ト す る 
文 で す 。 


定数 し イン デック ス ・ レ ジス タ は 16 ビッ ト 長 で 扱わ れ ま 
す 。 式 は 8 ビッ ト 長 で 計算 る きれ, イン デック ス ・ レ ジス タ の 
値 (16 ビ ッ ト 長 ) に 加算 また は 減算 きれ ます 。 

例 


Set ix ーー $3F2C・ 
set iv : 三 258 二 a グ 3・ 
set ix : 三 ーb*2: 
set ix : 三 十 3 5 
set 1IV : 三 ixi 

9 Idx 文 


ldx 文 は イン デック ス ・ レ ジス タ に 変数 の 値 を ロー ド す る 
文 で す 。 

この 文 に より イン デック ス ・ レ ジス タ の 下位 8 ビッ ト に は 
変数 の 値 が . 上 位 8 ビッ ト に は 変数 の 次 の アド レス の 値 が ロ 
ー ド る され ます 。 ldx 文 次 の stx 文 だ けが 変数 を 16 ビ ッ 
ト 長 で 扱い ます ( 図 4-11)。 
⑯ stx 文 

stx 文 は イン デック ス ・ レ ジス タ の 値 を 変数 に スト ア す る 


文 で す 。 
この 文 に より イン デック ス ・ レ ジス タ の 下位 8 ビッ ト が 変 
数 へ , 上 位 8 ビッ ト が 変数 の 次 の アド レス ヘ へ ストア さる され ます 
( 図 4-12)。 
《 inx 文 , dex 文 
inx 文 は 指定 し た イン デック ス ・ レ ジス タ の 値 を 十 1 し , 
dex 文 は ー 1 し ます 。 


var w, xX, y,Z |2|: 言 され て いる も の と し て 
IO IX: 王 光 : 
ldx ix : 三 y| 2 |: 
を 実行 し た 場合 , イン デック ス ・ レ ジス タ に は 次 の よう に メモ リ の 内 容 が ロー ド さ れる 。 





stx の 例 


Var 3, b[ 3 ].c C, d: 言 され て いる も の と し て 
Stx 8a: 三 
Stx 1 RW : 
を 実行 し た 場合 , 次 の よう に メモ リ に イン デック ス ・ レ ジス タ の 内 容 が スト ア さ れる 。 
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(14) コン パイ ル 制 御 文 

コン バ パイル 制御 文 に は 、%tron, % troff,。 % break, % 
include の 四 つ の 文 が あり ます 。 

26 tron。 % troff,。 % break は ゲ プログラム の デバ ッ グ の た 
め の 文 で 。 デ バッ グ ・ モ ー ド で コン パイ ル し だ た とき だけ 有 効 
に な り ま す 。 こ の うち , %tron, % troff は ゲロ グラ ム の ト 
レー ス に 関す る 文 で , % tron を 指定 する と プロ グラ ム の 実 
行状 態 が 追跡 びき る よう な オブ ジェ ト ・ コ ー ド を 生成 し , % 
troff が 指定 され る まで 続き ます 。% tron に よっ て 生成 され 
る コー ド は , 実行 し た 行 番号 ある い は 関数 名 を 表示 する も の 
で , 行 番号 は 






: 表示 し ます 。 
2o6 break は プロ グラ ム を 一 時 的 に 中 断 す る 文 で 。 これ を 
実行 する と 










*※*※ break in 行 番号 





: 表示 し て 実行 を 中 断 し ます 。 中断 し た プロ グラ ム は 再開 る 
せる こと が で きま す 。 

9 include は 指定 され た ファ イル を ソー ス ・ プ ログ ラム の 
一 部 と し て 読み 込む た め の 文 で 。 ライ ブラ リ な ど を 読み 込む 
だ め に 使い ます 。 


[4] 戒 

Stellar の 式 は すべ て 8 ビッ ト 長 で 演算 る きれ ます 。 演算 は 
論理 , 関係 , 算術 の 三 つ に 分 類 る きれ ます 。 

(1 ) 演算 子 と 演算 

演算 子 は 25 個 あ り , それ ぞ れ 次 に 示す よう な 演算 を 行 な 
いま す 。 


ゆ 論 理 演 見 子 
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論理 演算 子 は グー ル 演 算 や ビッ ト 操 作 を 行ない ます 。 







or !| 

XOr … 排 他 的 論理 和 
and & … 論 理 積 

not 一 ^ … 論 理 衝 定 


… 論 理 和 





論理 演算 は 各 ビ ピット ご と に 演算 が 行なわ れ ま す 。 
@ 関 係 演算 子 
関係 演算 子 は 二 つ の 値 を 比較 する た め の も の で す 。 


ーー … 等 し い 
… 等 し て ない 
っ … 大 きい 
ーー … 大 きい か 等 し い 
ご … ツ る さ い 
ーー … 小 さい か 等 し い 













関係 演算 子 は 符号 な し の 2 進 整数 で 比較 を 行ない , 結果 が 
真 の と き 255, 偽 の と き 0 の 値 が 得 ら れ ま す 。 
見 術 演 見 子 

算術 演算 子 に は 次 の も の が あり ます 。 













+ ー "加算 

ー … 減 算 

単項 。 …2 の 補 数 は と ら な い ( 何 $ も しない) 
単項 一 …2 の 補 数 を と る 

の … 剰 算 

Dlus … キ ャ リー フラ グ を 含め た だ 加 四 


… キ ャ リー フラ グ を 含め た 減算 


1③ ら 5 
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算術 演算 は 符号 な し の 2 進 整数 で 行なわ れ ま す 。 
⑳ そ の 他 の 演算 子 


演算 子 と し し て は その他 に 。 シフ ト と 代入 が あり ます 。 





… 左 シフ ト (くく の 右辺 の 値 で 左辺 の 値 を 論理 左 
ン フ ト す る ) 
>>… 右 シフ ト (>> の 右辺 の 値 で 左辺 の 値 を 論理 右 
シフ ト す る ) 
・ テ … 代 入 (: = の 右辺 の 値 を 左辺 へ 代入 する ) 







( 2 ) 演算 の 優先 順位 
演算 は 次 の 優先 順位 に よっ て 行なわ れ ま す 。 
() や [| の 中 の 式 , : = の 右辺 , 関数 
. 単項 の 十 一 
。 沼 / 発 そく ラッ 
。 生 plus Im1nuS 
. 三 ベク グ クニ くく くく = 


。 TIOt 








. and 


. OT,XOT 





同 順 位 の 演算 は 左 か 6 右 へ 行なわ れ ま す ( 図 4-13) 。 こ の 
図 で 演算 は (①->⑤ の 順に 行なわ れ ま す 。 





(24) の ンマ 基 
カン マ (, ) て 区 切ら れ た カッ コ の 内 の 式 は 左 か ら 6 右 へ 計 
算 さ る れ , 最 右 の 式 の 値 が カン で 式 の 値 に な り ま す 。 


例 
X 。 守 (aa 定 ]1。b:=5。 g 士 b) 
a に 1 b に 5 を 代入 し 。 ab を 計算 する 。a 十 b 


が カン マ 式 の 結果 と な り x に 代入 きれ る 。 つまり, x に 
は 6 が 代入 され る 。 





(4 ) 条件 演算 関数 

条件 演算 関数 し は 式 の 中 に 書け る if 文 し と いう よう な も の 
人 

カッ コ 内 に は 三 つ の 式 が 書か れ ,。 セミ コロ ン ( : ) と カン 
マ (, ) に よっ て 区 切 6 れ ます 。 第 一 の 式 が 条件 を 表わす 式 
で , 計算 結果 が ゼロ 以外 ( 真 ) の と き 第 二 の 式 を 計算 し , 関 
数 の 値 と し ます 。 上 第 一 の 式 の 計算 結果 が ぜ ロ ( 偽 ) な ら 6 第 三 
の 式 を 計算 し 関数 値 と し ます 。 図 4-14 は これ を 流れ 図 で 表 
らし た 5 の て す 。 
引導 防 。 条件 演算 関数 





7 ( 式 |: 式 2, 式 3 ) 


式 3 を 計算 し その 値 式 2 を 計算 し その 値 
を 関数 の 値 と する 。 を 関数 の 値 と する 
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| 例 
hex1 :=? (h:=h 締 $f) <10:h,h 十 7) 


し 
変数 h の 下位 4 ビット を 1 文字 の 16 進 数 に 変換 し , 
hex 1 へ 代入 する 。 





(5) 組み 込み 関数 

Stellar で は つぎ の 13 個 の 組み 込み 関数 を 持っ て いま す 。 

iC ( 変 究 名 )  ……… つ の" 変数 の 内 容 を 十 1 し , 十 1 し た 
値 を 関数 の 値 し と する 。 こ れ は 
(変数 名 : 三 変数 名 十 1) と 同 
は 。 

dec (変数 名 ) …………… 変 数 の 内 容 を - 1 し , 一 1 し た 
値 を 関数 の 値 し する 。 こ れ は 
(変数 名 : 三 変 数 名 一 1) と 同 
。 

Tlc ( 式 ) 人 式 の 計算 結果 を 左 へ 1 ビッ ト 回 
転 さ せる 。 





| ピッ ト 回 転 


1 3 ご 


T| ( 式 ) 人 式 の 計算 結果 を 左 ヘ キャ リ ー フ 
ラグ も 含め て 1 ビット 回 転 き せ 
る 。 





1 ビッ ト 回 転 


io 上 式 の 計算 結果 を 右 ヘ キャ リー フ 
ラグ も 含め て 1 ビッ ト 回 転 き せ 
る 。 


キャ リー 





sra ( 式 )… ii… 式 の 計算 結果 を 右 へ 1 ビッ ト 算 
術 右 シフ ト す る 。 


ピッ トシ フト 


b7 は 不変 





dei ( 式 ) …… の tt 式 の 計算 結果 を 10 進数 2 桁 
(BCD) に 補正 する 。 
CaTTY ( ) で で イ ダマ で 5 イセ イ で ・ 現在 の キ ヤ リ ー フ ラグ (CY ) 


の 値 を 求め る 。CY ニ 1 な ら 6 
255。CY= 0 なら 0 が 関数 値 。 
carry ( 式 )  … の olio … 式 計算 後 の キ ャ リー フラ グ の 値 
を 求め る 。CY= ニ 1 な 6 ら 6255, 
CY ニ 0 な ら 0 が 関数 値 。 


4 ロジ シバ イク 
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oOVerflow ( ) アド 
OVerfloW ( 式 ) 0 の (20 


(6 ) 関数 の 呼び 出し 


式 計算 後 の ぜ ロ ・ フ ラグ の 値 を 
求め る 。 ノー1 な ら 255。、Z= 
0 な ら 6 0 が 関数 値 。 
現在 の サイ ン ・ フ ラグ (S) の 
値 を 求め る 。S= ニ 1 な ら 625 
5, S= ニ 0 な 6 ら 60 が 関数 値 。 
式 計算 後 の サ イン ・ フ ラグ の 値 
を 求め る 。S ニ 1 な 6 ら 255, 
S ニ 0 な ら 0 が 関数 値 。 
現在 の P/V フ ラグ の 値 を 求め 
る 。P ノ /V= ニ 1 な 6255, 
P/V= テ 0 なら 0 が 関数 値 。 
式 計算 後 の P/V フ ラグ の 値 を 
求め ゆる 。P ノ グリ = テニ 1 な ら 6255, 
P/V=0 な 6 ら 0 が 関数 値 。 
parity ( ) と 同じ 。 

parity ( 式 ) と 同じ 。 


実 引数 に は 8 ビッ ト 長 と 16 ビ ッ ト 長 の 二 種 類 が あり 。 実 


引数 の 値 が 関数 に 渡る れ ま す 


。 セミ コロ ン (:) に より 前 が 


8 ビッ ト 長 の 実 引 数 で , 0 -32 個 の 式 が 書け ます 。 セ ミコ 
ロン より 後 が 16 ビ ッ ト 長 の 実 引数 で 。 イ ン デ ックス ・ レ ジス 
タ 名 や 定数 式 を 書き ます 。 関数 の 呼び 出し で 書か れる 実 引数 


は 次 の ょ うな 意味 を 持っ て い 


ます 。 


_ 順序 は 変え られ な い 





関数 名 ( 式 | 式 2。 …,。 式 n : ix 


実 引数 の 数 は 0 一 32 個 , 仮 引数 の 数 と 特に 合わ せ 
る 必要 は な い 。 引 数 の 数 が 合わ な い 場 合 関数 側 
で 次 の よう な 処理 を 行う 。 





イン デック ス ・ レジ スタ jix に つい て 
iy と 同様 。 


また に は 定 数式 , 


Iy_ また は 定数 式 ) 


イン デック ス ・ レ ジス タ iy の 値 や 
定数 式 の 値 を 関数 へ 送る 。 た だ 
し , 呼び 出さ れる 関数 の 頭 書き で 
I6 ビ ッ ト 長 の 値 を iy で 受け る よう 
に 指定 され て いな いと 送ら れ な 
1 ウゴ < 
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つつ き 
供 仮 引数 の 数 > 実 引数 の 数 の 場合 


呼び 出し 側 func | (a,b 十 c, d) 
何 が 入 い る か 


7 ノエ いらない 


関数 側 func | (u V, W, X。 Y, Z) 


参 仮 引数 の 数 < 実 引数 の 場合 
呼び 出し 側 func 2 (a, b, c, d/e, f) 
関数 側 func2 (xy,z) 


無視 され る 


( 7 ) 関数 の 値 の 渡し か だ 

関数 の 値 は return 文 の 一 つ 前 に 実行 し た 式 の 値 と な り ま 
す 。 

た と え ( は 仮 引数 3。 b。 の 合計 を 関数 の 値 と する 関数 は 。 


8dd3 【a。 b。 ce) 
( 


a 十 b 十 c: 





と な り ま す 。 次 の 例 は , ix が 示 示す n バ イ ト の メモ リ の 中 か 
ら X と 等 し いも の を 探し 出す 関数 で , 等 し いも の が あれ ば を 
の 位置 を , 等 し いも の が な い 場 合 は $FF を 関数 と 値 と し て 
戻し ます 。 


Sear (n, XX :1X) ・: 
VaT 1・: 
1 
in= テ 0 then { 
ゅ It ・ 


TetUTT : 


の ん 
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つ づき 
for i := ニ 0 ton 一 1 { 


If memorylix 十 |=x 


then { 
1・ 
TetuTT : 
) 
) 
ゅ ft: 
| 5 」 変数 と 定数 


(1 ) 変数 | 
変数 と し て 扱う も の に は , 変数 宣言 部 で 宣言 し た 変数 名 , 
デー タ 富 言 部 で 宣言 し た デー タ 名 , そし て memory 配列 と 
port 配列 で す 。 デ ー タ 名 は : = ニ の 左辺 に 置い て 値 を 代入 す 

る こと は て きま せん 。 
変数 名 。 デー タ 名 の 後に は [ 式 ] を つけ て 相対 的 な 参照, 
代入 (代入 は 変数 名 の み ) が 行 な ん ます 。 [] 内 の 式 が 変数 
ある い は デー タ か ら の オフ セッ ト で 0-255 まで の 値 と な り 5 
ます 。 図 4-15 が 相対 的 に アク セス で きる 範囲 を 表わし た 図 
です 。 
ほ 称 相 対 的 に アク セス で きる 範囲 














var a,。 b |2|。 c。d「3]。e・ 
( 
b : 定 久 |1{1 : 天 $1dJ・ 





ge un ix 間 
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CI13| :=a |I5]| 一 8・ 





この 例 の 場合 。 変数 宣言 部 で は 変数 は メモ リ 上 に 次 の よう 
に 割り 9 つけ られ ます 。 





a,cC,e は それ ぞ れ 1 バイト, b は b[| 2 」 と 宣言 る され て い 
る の で 2 バイ ト , d は d[3] と 宣言 さき れ て いる の で 3 バイ ト 
取ら れ ま す 。 

この 例 を 実行 する と メモ リ 上 の 値 は 次 の よう に な り ま す 。 






変数 名 の み で アク セス 
ーー で きる 位置 


…a[ 255 ] 


…b[255〕 

変数 名 の 後に 
cl3| …C[255]: 【 式 ] を 付け て アク 
0 セス で きる 位置 。 
b[ 0 d[ |d[ 2] d 6 …d[255 
且 …G[255 


た と えば 。 e[0],b[3〕,c[4〕, b【6], a[7〕」 は いずれ も 変数 e を アク セス する 。 


memory 配列 は CPU の 全 メ モリ 空間 64 KK バイ ト に 対し 
て 自由 に 参照 , 代入 する た だ ため の も の で , 二 つ の 形式 が あり ます 。 


memory [ 束 1。 臣 41 





1 の 値 を 上 位 バ イト と し 大 2 の 値 を 下位 バイ ト に し て 
メモ リ の アド レス を 設定 し 参照 代入 を 行ない ます 。 
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6HOTY ロバ ン デ ックス え ・ レジ スタ 名 数 





この 形式 は イン デック ス ・ レジ スタ (ix。 iv) を 使う も の 
て す 。 基 本 的 な 使用 法 は 上 記 の よ うに, 初め に イン デック 
ス ・ レ ジス タ 名 (ix,iy) を 書き , 次 に 定数 を 書き ます 。 

イン デック ス ・ レ ジス タ 名 の 後に 正 符号 ( 士 ) また は 負 符 
ちら (一 ) を やつ ける と 参照 。 代入 を 行なっ た 後 , イン デック 
ス ・ レ ジス タ の 値 を 正 符 号 ( 十 ) で 十 1, 負 符 号 (-) で 一 
1 し ます 。 

定数 は 符号 を つけ な いで 場合 で 0 -127 まで の 整数 , 符号 
を つけ た 場合 で 一 128- 十 127 まで の 整数 し な り ま す 。 定数 
の 値 が ぞ ロ の 場合 


memory | イン デック ス ・ レジ スタ 名 





L 書い て も か まい ませ ん 。 こ の 定数 の こと を ディ スプ レイ ス 
メン ト と いい , この 定数 に より , イン デック ス ・ レ ジス タ が 
志す アド レス を 中 心 に 一 128 一 十 127 バイ ト が アク セス で き 
る よう に な り ま す ( 図 4-16)。 ま た だ , “memory" の 代わ り に 
@ と 書く こと が で きま す 。 

port 配列 は 。 1 プ D) ポ ー ト に 対し て 参照 。 代入 を 行なう 
も 5 の で す 。 し か し , これ は “out  (n) , a”"。 “im a. 
(n) "と いう オブ ジェ クト ・ コ ー ド に 展開 され る の で , bc 
レジ スタ を 使っ た 16 ビッ ト の ポー ト ・ ア ドレ ス 指 定 は で きま 
せん 。“port" の 代わ り に @@ と 書く こと も る でき ます 。 


ディ スプ レイ スメント と アク セス で きる 革 囲 


ディ スプ レイ スメント 一 128 


256 バ イト 
人 @ メ モリ 上 | | の 部 分 が アク セス で きる 範囲 。 
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(2 ) 定数 

定数 と し て は 次 の よう な も の が あり ます 。 

仁 10 進 数 0 一 65535 まで の 正 の 整数 。 

信 16 進 数 $ を 頭 に つけ た だ 0 一 FFFF まで の 16 進数 。 

の メ 字 1 文字 を 引用 符 () で 囲ん だ も の 。 

信二 数 名 定数 定義 部 で 定義 し た と き , 値 に つけ た 名 前 。 

介 / ド レス 定数 名 。 デー タ 名 , ラベ ル 名 , 関数 名 の 頭 に ビ 
リオ ド (. ) を つけ る と その アド レス が 定数 と な 
り ま す 。 

人 @ 表 意 定数 コン パイ ラ が 自動 的 に 定義 する 大 域 的 な 定数 名 
の こと で す 。 表意 定数 に は 次 の 三 つ の も の が あり 
ます 。 







… ラ ンタ イム ・ ル ー チ ン の ワー ク ・ エ リア の 
先頭 アド レス 。 これ の 内 傘 は 関数 の 実 引 数 の 数 
の 数 。 | 


var … 変 数 エリ ア の 先頭 アド レス 。 
_ Code … kdL 表 人 MM 





⑱ ロ ケー ショ ン ・ . カ ウン タ の 値 $ の あと が 6 人 外 の 
字 な ら , その $ は 次 の 生成 する オブ ジェ クト ・ 
ー ド の アド レス を 示し ます 。 
定数 は 基本 的 に は 16 ビッ ト の 値 を 取り ます 。 た だ ただし, 式 
な ど で 使 う 場 合 , 定数 は 8 ビッ ト 長 の 値 (10 進 数 で 0 
ー255, 16 進数 で 0 ーFF) で な けれ ば な り ま せん 。 
ri 
100ーFFFF) だ と エラ ー に な り ま す 。 そ の よう な 場合 , 定 
数 の 前 に hi また は low と 書け ば 上 位 ま た は 下位 の 8 ビッ ト 
だ け を 定数 と し する こと が で きま す 。 
た と えば , 変数 abc の アド レス が 16 進 数 て A25C の と 
き ,。]low。 abc と する と この 値 は 16 進数 で 5C と な り , hi. 
abc で は 16 進数 で A と な り ま す 。 
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4-4-2 Stellar エ フー メソ セージ 
コン パイ ル 中 に 表示 る れる エラ ー メ ッ セ ー ジ は , 次 の と お 
り て す 。 " 


1 . 行 番号 : Missing variable name : 変数 名 
内 容 : 后 定 さ れ た 変数 名 が 見 つか ら な い 。 
動作 : アド レス が ゼロ の 全域 的 な 変数 と し て 処理 を 続け 
る 。 
2 . 行 番号 : Missing constant name : 定数 名 
内 容 : 指定 され た 定数 名 が 見 つか ら な い 。 
動作 : 値 が ゼロ の 全域 的 な 定数 名 と し て 処理 を 続け る 。 
3 。 行 番号 : Bad option switch 
内 容 : オプ ショ ン ・ ス イッ チ の 指定 が 悪い 。 
動作 : アボ ー ト 
4 . 行 番号 : Illegal function name : 名 前 
内 容 : 不法 な 関数 名 で 関数 を 宣言 し よう と し た 。 
動作 : 名 前 が 予約 語 や 定数 な 6 ら ア ボー ト 。 二 重 宣言 な 6 を 
の 名 前 で シン ボル ・ テ ー ブ プル (記号 表 ) へ 再 登録 し 
処理 を 続け る 。 
5 . 行 番号 :Illigal name : 名 前 
内 容 : 不法 な 名 前 で 定数 名 , 変数 名 を 宣言 し よう と し た 。 
動作 : 名 前 が 予約 語 や 定数 な ら ア ボー ト 。 二 重定 義 , 宣言 
な ら そ の 名 前 で シン ボル ・ テ ー ブ ル へ 再 登録 し 処理 
を 続け る 。 
6 . 行 番号 : Illingal label : ラベ ル 
内 容 : 不法 な 名 前 で ラベ ル を 定義 し よう と し た ( 二 重 定 義 
が もとり 
動作 : その 名 前 で シン ボル ・ テ ー ブ ル へ 登録 きれ る 。 
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7 。 行 番号 :Bad string data 
内 容 : 文字 列 定数 の 指定 が な い (文字 列 の 右 の "が な いま 
ま 行 が 終わ っ て いる ) 。 
動作 : 文字 列 定数 の 右 に 二 重 引用 符 で ぐ ) が ある も の と し 
て 処理 を 続け る 。 
8 . 行 番号 ・Too many arguments 
内 容 : 実 引数 の 数 が 32 個 以上 定義 きれ て いる 。 
動作 : 処理 を 続け る 。 
9 . 行 番号 :Illigal character : 女 字 
内 容 : 字句 と し て 認め られ な い 文 字 が ある 。 
動作 : アボ ー ト 
10. ? : Undefined label : ラベ ル 
内 容 : 未定 義 な ラベ ル が ある 。 
動作 : 処理 を 続け る 。 
11. ? : Undefined function name : 関数 名 
内 容 : 未定 義 な 関数 名 が ある 。 
動作 : 処理 を 続け る 。 
12. 行 番号 : Illigal constant : 定数 
/ displacement 
/ OVeT range 
内 容 : 不法 な 定数 が 指定 され た 。 定数 値 。 displacemet, 
over range の いずれ か が 表示 る れる 。 
動作 : 値 を ど ロ に し て 処理 を 続け る 。 
13. 行 番号 : Bad constant 
内 容 : 定数 の 指定 が 悪い 。 
動作 : アボ ー ト 
14. 行 番号 : Bad address constant 
内 容 : アド レス の 指定 が 悪い 。 ま だ は 指定 が で き な い と こ 
ろ で アド レス 定数 を 指定 し た 。 
動作 : アボ ー ト 
15. 行 番号 : Syntax error 
内 容 : 構文 が 正しく な い 。 を その他 の エラ ー。 
動作 : アボ ー ト 
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16. 行 番号 : Bad index operation 
内 容 : イ ン デ ックス 操作 文 が 正しく な い 。 
動作 : アボ ー ト 
17. 行 番号 : Bad expression 
内 容 : 式 が 正しく な い 。 
動作 : アボ ー ト 
18. 多 Abort 
内 容 : ア ボート 
動作 : コン パイ ル を 異常 終了 る せる 。 
19. 行 番号 : Bad include 操 e name 
内 容 : % include で 指定 され た ファ イル 名 が 正しく な い 。 
動作 : アボ ー ト 
20. 行 番号 : No include file 
内 容 : % include で 指定 され た ファ イル が な い 。 
動作 : アボ ー ト 
21. Include source is not on memory 
内 容 :%include で 指定 され だ た ファ イル が メモ リ 上 に な 
い 。 
動作 : アボ ー ト 
22. 錠 Symbole table overflow 
内 容 : シン ボル ・ テ ー ブ ル が オー バー フロ ー し た 。 
動作 : コン パイ ル を 中 止 する 。 
23. Object area ful 
内 容 : オ ブ プ ジ ェ クト ・ プ ログ ラム を 出力 する 領域 が いっ ぱ 
い に な っ だ た 。 
動作 : コン パイ ル を 中 止 する 。 
24. 光 Bad source file 
内 容 : 入力 し た ツー ス ・ プ ログ ラム が 正しく な い 。 
動作 : コン パイ ル を 中 止 する 。 
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WO ee い 
4-4-3 コン イラ の 合い 万 
4-17 は Stellar コン パイ ラ で の プロ グラ ム 開 発 手順 を 
示し た も の で す 。Stellar の ソー ス ・ プ ログ ラム は エディ タ で 
作成 し ます 。Stellar コン パイ ラ は ツー ス ・ プ ブロ グラ ム を 入力 
し て オブ ジェ クト ・ コ ー ド を GVRAM 上 に 出力 し ます 。 コ 
ン パ イラ は 直接 マシ ン 語 の オブ ジェ クト ・ コ ー ド を 出力 し ま 
す が 。 特殊 な ユー ド を 含ん で いる た め , この まま で は 実行 す 
る こと は で きま せん 。 を そこ で , これ を 実行 可能 に する だ め の 
プロ グラ ム が ロー ダー で GVRAM 上 の オブ ジェ クト ・ コ ー 
ド を 変換 し て メイ ン ・ メ モリ に ロー ド し ます 。 ロ ー ド さる れ た 
オォ オブジェ クト ・ プ ログ ラム は 実行 コマ ンド で 実行 で きま す 。 





Include( に よる 






| stellar コン パイ フラ (COMP) 


| オプ ジェ クト 

(GVRAM) 
ロー ダー 
(LDOBJ ) 


| 「 オプ ジェ クト ・ 
| ゲロ グラ ム 
| (メイ ン ・ メ モリ ) 


モニ タ (MON) 
る コマ ンド で 
プロ グラ ム を セー プ 







| (RUN ) 
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ここ で は ハノイ の 搭 (リス ト 4-1) の プロ グラ ム を 例 に と 
っ て 説明 し ます 。 





/ ※ tOwerT Of hanOl  、※/ 


PTO9 hanol()i 


COn5 CT := 13。Om := 1J。Off := 9: 
Var 1( 
data 591・ "も tOwer Of hanoi " ,CY,9。 
mS92: 2 
{ 
1pt(On) 
PUtStYT( ji. 剖 S91): 
{ 


- newline():jputstr( : . 着 S92 ) : 
#}until (ni:=getchr() )>= "1') & nm <= "dd": 
1 = ロー 9 

newline( ): 

前 OVe(n。 和久 。 YY 。 の の) 

1pt(Off ) 


) 
1pt(Sw): 
Var _1pt 8t ($ も 1472): 
( 
_1pt := SWwi 
) 


PUtStrT( 5? 1X): 
{ 


inline $ ゃ dd,$ も e5 , /%※ PUSh ix 基 / 
$d 1 , /%※ POP de ※/ 
$ も Cd , も 142f: / 基 Cal] PFinmtD  ※/ 


} 
newline(): 


imnline $ ゃ Cd,。 半 $1446 : / Ca1] CTIPYD  ※/ 
} 


etChr( ): 
{ 


inline $3e,。$ も 1 /※ 1d a。 1 区 / 
も Cd , 991b, /※ Ca11 jinkey ※/ 
$ も Cd , 半 和 $1 42: / え Cal] aCCDYD  ※/ 
す 
Putchr(C)i 
{ 
lmline も 3a,#.C, /※ 1d 8a。(.C)  ※/ 
$ も Cd , 半 も 1 42M: /※ Cal]l aCCDTD  ※/ 
} 
TeCUTS1VGe OOVe(h,X。Y,Z) 
data VS : " 加 OVe "9, 
fTmS: 0 欄 人 呈 。 
tOS : 人 
{ 


1f jn > 1 then { 
MOVe(mn- 1 。X, と 。Y) 


PUtStY( 1 . 加 VS ) PUtChT(n+ '9') 
PUtStY( j .fYTmS ) PutChY (X) 
PutStY( itOmS ) : putChr(y): 


newline()i 
OVe(m- 1 と,Y,X) 
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科 つう づ きま 


#)e1Se { 
PUtStY( ? . 存 VS ) putchr(n+ 9!)5 
PutStY(i .frmS)i PutChr(X)i 
PUtStY( ji 、tOMS ) putChr(y): 


newline()i 





[ 1 ] Stellar コン パイ ラ 

Stellar コン パイ ラ は コマ ンド ・ モ ー ド の と き に "COMP 
「/P] 較 " と 入力 し て 起動 し ます 。 [| 」 で 囲ま れ て いる も $ 
の は 省略 で きま す が ,“/P” を 付け る と コン パイ ル 中 の メッ 
ャ ー ジ を ブリ ンタ に プリ ント し ます 。 まだ, F 2 (ファ ング 
ショ ン キ ー の 2 番 ) を 押す と “COMP "と 入力 し た 場合 と 
同じ で す 。 

ュ ン パイ ル 中 に エラ ー が ある と エラ ー メ ッ セ ー ジ , エラ ー 
将 。 も し て 














<space> continue, E (dit) 
E 表示 し て 入力 待ち に な り ま す 。 ス ペー ス ・ キ ー を 押す と コ 
ン パ イル は 続行 し 。 EE (まだ は e) を 押す と エディ タ に 入り 
エラー 箇所 の 付近 に カー ソル が 移動 する の で 再編 集 し て くだ 
る い 。 

Stellar コン パイ ラ は エラ ー が な けれ ば 次 の よう な メッ セ 
ー ジ を 表示 し て コン パイ ル し ます 。 


Stellar COmPiler Rev 1 .9W 
( X1 VerSiOon ) 
Copyright (c) 1984 H.watanabe & H.Ohnuki / MIA 


Programm name : hanol ……" ・ プ ログ ラム 名 
Function name : lpt 

FurncCtion namme : PutStr 

FunCtion Ia : newl1ne 

FunCction naWWe : 9etChrY 関数 名 
FunCtioOn amme : PutChr 

FunCtiOn mame : WOVe 


PrOgrTamm 9324 (B999-B323 )……… 生 成 し た オプ ジェ クト ・ コ ー ド の サイ ズ と アド レス 
Data 937 (D999-D936 )……… 変数 , ワ ー ク ・ エ リア の サイ ズ と アド レス 
Stack bottO 症 ( -F8FE )……… スタ ッ ク の アド レス 


※※ End Of COmPile, NO errOY(S) 
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1 2 」 ロー ダー 

ロー ダー は コマ ンド ・ モ ー ド の と き に “LDOBJ [/P] 了 固 " 
と 入力 し て 起動 し ます 。“/P”" を 付け る と ロー ド 中 の メッ セ 
ー ジ を プリ ンタ に ブリ ント し ます 。 ま だ た だ, F3 を 押す と 
“LDOBJ "と 入力 し た 場合 と 同じ で す 。 

プ ブログ ラム 中 で オプ ショ ン ・ ス イッ チ を 使っ て いる 場合 で 
ロー ド ・ ア ドレ ス が シス テム 領域 と 重なっ て いる と き は , を 
の アド レス と “Load error" と 表示 し , ロー ド は 中 断 し ま 
す 。 ツ ソー ス ・ ブ ログ ラム と 重なっ て いる と き は 






Destroy a File (YN) ? 





: 表示 し て ソー ス ・ ブ ログ ラム を 破壊 する か どう か 聞い て き 
ます 。 ここ で Y (まだ は YyY) を 押す と ソー ス ・ プ ログ ラム を 
破壊 し て オプ ジェ クト ・ コ ー ド を ロー ド し ます 。N (また は 
n) を 押す と ロー ド を 中 断 し エラ ー を 表示 し ます 。 

ロー ド の 一 時 停止 は スペ ー ス ・ キ ー を 押し て くだ きい 。 一 
時 停止 の 解除 も スペ ー ス ・ キ ー で す 。 ま た , SHIEFT 二 
BREAK キ ー か C を 押す と ロー ド は 中 断 し エラ ー を 表示 
し ます 。 

ロー ダー は エラ ー が な けれ ば 次 の よう な メッ セー ジ を 表示 
し て オブ ジェ クト ・ コ ー ド を ロー ド し ます 。 


lOad Stellar COmWPileT Object 


| ま ッ アン 


Program 。 name : hanoi = B999  ……… ド プロ グラ ム の 開始 アド レス 
FunCtion namme : pt = B19B 

FunCtiOn name : putstr = B1B5 | 

FunCtiOm ame : newline = BI1D6 和 
Function name : getchr = BI1ED 関数 の 開始 アド レス 
FunCction namWe : putchr = B299 

FunCtiOn ame : moOVve = B223 

ConStant namme : _wOrk = D999 

Constant name : _var = D938 表意 定数 の 値 

ConStant na : COde = B999 

ConStant namme : Cr = 99D 

Constant name : on = 9991 全域 的 な 定数 名 の 値 
ConStant Iame : Off = 999 

Variable name : n = D939 全域 的 な 変数 の アド レス 
mr わーい を ーー 全域 的 な デー タ 名 の アド レス 


Ernd addreSsS 
PrO9Yamm S1Ze 





6 * 往 諾 し た オプ ジェ クト ・ コ ー ド の エン ドー アド レス 
3 生成 し た オプ ジェ クト ・ コ ー ド の サイ ズ 


tOwer Of hanoi 
N ( 1...9 )= 


則 OVC 
朋 OVC 
I 岬 OVE 
串 OVG 
串 OVE 
中 OVG 
中 OOVE 
朋 OVE 
串 OVG 
骨 OVE 
岬 OVE 
骨 OVE 
中 OVG 
前 OVG 
中 OVE 


1 
/ 
] 
1 
1 
2 
1 
4 
1 
| 
J 
1 
2 
1 


{TO 
f TO 中 
fTO 前 
frOW 
fYOW 


{TO 


TOM 
frO 剖 
frOmW 


frYO 四 / 


YO 
{TO 


fYO 呈 . 


{TO 
fYO 加 


4 
4 


X 
ま 
Y 
X 
X 
〆 
2 
Y 
〆 
ん 


2 t 


[ 3 ] オプ ジェ クト ・ プ ログ ラム の 実行 
ロー ド る され だ た オブ ジェ クト ・ ブ ログ ラム の 実行 は コマ ン 
ド ・ モ ー ド の と き に "RUN [ &Hnnnn] 較 ” (nnnn は 16 
進数 ) と 入力 する と 実行 で きま す 。 ま た だ , F5 を 押す と 
F 10 を 押す と "RUN 人 &H” と 入力 し た 場合 と 
同じ で す 。“&Hnnnn "を 付け る と nnnn 番地 か ら 実 行 で きま 
す 。 これ は ロー ド 中 に 表示 る れ た 関数 の デバ ッ ク な ど に 便利 


ォ オブ ジェ クト ・ プ ログ ラム が デバ ッ グ ・ モ ー ド で % tron が 
指定 され て いる と き , 実行 を 一 時 休止 する と き は スペ ー ス ・ 
キー を 押し て 〈 て だ るい 。 一 時 停止 の 解除 は スペ ベース ・ キ ー で 
す 。 また, 実行 を 中 断 す る に は SHIFT+BREAK キー か 「 
C を 押し て くだ さる い 。 

実行 結果 は 次 の よう に な り ま す 。 


7 4 


tO 
tO 
tO 
tO 


で で EE で で RNN で 中 





[ 4] オブ ジェ クト ・ プ ログ ラム の 続行 
% break で 実行 を や 中断 し た プロ グラ ム の 再開 は コマ ンド ・ 
モー ド の と き に “CONT "と 入力 する か また は F5 を 押し 


4-18 は Stellar 動作 時 の メモ リ ・ マ ッ プ で す 。 
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Stellar 動作 時 の メモ リ ・ マ ッ プ 











(a) メ モリ マッ プ (b) I/0 マ ッ プ 
0000 Pe 、 
| ユー ザーI/O ポ ボー ト 
1000 〔 
シス テム I/O ボ ポート 
2000 ト 一 ーーー ニーーーーー 
Stellar 2>7FFL------ 全 性 VRAM 
3000 | トー 一 表 


テキ スト VRAM 


エディ タク 本 iR 2 ee 


コン パイ ラ 4000 ーー 
昌一 デー | 


テキ スト ・ エ リア 
A000O 
: 王 2 


92P: B000| 
ラン タイ ム ・ ル ー チ ン 
オブ ジェ クト ・ コ ー ド 








: 1?96D: D900 
変数 . ワー ク ・ エ リア 
次 ダッ ク ャ エリ アプ 


ロー カル ・ ス タッ ク 


ソー クジ ・ エ リア 
スタ ッ ク (コン パイ ラ 用 ) 


シス テム で 使用 





FFFF 


注 1) オプ ショ ン ・ ス イッ チ に より 変更 可 。 
注 2) テキ スト ・ エ リア は 6800H-D8FFH。 
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4-4-4 マン ン 語 この イフ ツー ノエ イス 


Stellar は 入出 力 の 文 を 持っ て いな い の で , inline 文 を 使 
っ て これ を マシ ン 語 で 記述 する 必要 が あり ます 。 inline 文 を 
抜け る と き は スタ ッ ク ・ ボ ポイ ンタ を 入る と き の 値 に 戻る な け 
れ ば な り ま せん 。 

[| 1] マシ ン 語 と の イン ター フェ イス 

リス ト 4-2 は 文字 列 の アド レス を de レジ スタ に セッ ト し 
て $000b を コー ル し , 画面 に "XX 1” と いう 文字 列 を 表示 する 
プ ブログ ラム で す 。 

リス ト 4-3 は "A', B と いう 文字 を 表示 し , リス ト 4-4 は 
キー ボー ド か ら 1 文 字 入力 し て 表示 する プロ グラ ム で す 。 
Stellar で は 式 や 関数 の 値 あ き 8 レジ スタ に セッ ト す る の で リ 
スト 4-3, 4-4 の よう な 使い 方 が で きま す 。 リ スト 4-4 の 関 
数 input の 関数 値 は $001b を コー ル し た と き に セッ ト さ れる 
a レジ スタ の 値 で す 。 

リス ト 4-5 は 8 ビッ ト ・ デ ー タ を 関数 に 渡す プロ グラ ム で 
'B' と いう 文字 を 表示 し ます 。 変数 ch に セ モット る され て いる 
の は $41 で す が , 関数 printf に 渡る れる と き は 評価 

(ch : 三 ch 十 1 ) され た 値 $ 42 が 渡る れ て 仮 引数 char に セ 
ッ ト さ る され ます 。 

16 ビッ ト ・ デ ー タ の 受け 渡し に は リス ト 4-6 に 示す よう に 
イン デック ス ・ レ ジス タ ix,。 jiy を 使い ます 。 関数 add は 
ix : 三 ix 十 iYy と いう 計算 も する の で , 関数 の 頭 書 き で は を 
の ら の け て いま す 。 


PTYO9 PT1ITt()i 
data 人 きも 1Y91 大 1 95 


{ 


inline $]11,##.String す ,。 /※ 1d de, .Strin9 
$Cd , 半 $999b: /%※ Cal1l print 
) 





1 おら 


PrYO9 PUtC()}): 
{ 
$ も 41: 
inline も Cd,#$9913. /※ Cal1 PutC 


$42: 
imnlime $ ゃ Cd 、 革 和 $9913: / 基 Cal] putC 


PTO9 teSt( ) : 
{ 


impUt( ) : 
inline $Cd, 的 9913: /% Cal] prt 
} 


1nput(): 
{ 
inline $3e,$91 , /%* 1d  a,1 
$Cd ,#$991b: /% Cal] inkey 












JPTYT 


PTO9 teSt( ) 
Var Chi 
{ 
Ch: =$41: 
PTYirntf (ch:=cht1 ) : 
) 


Printf (char ) : 
{ 


inline $3a,#.Char, /※ 1d  a,(.Char) ※/ 
$ も Cd ,# 和 9913 /\ Call putc 、 美 / 





リス ト 4-6 


PTYO9 teSt() 
{ 


Set jix := も る 1234: 
add(iix。$1111): 
PrintX( ii1X) 


} 

add( ji 提 1X。 間 1V): 

{ 

inline $dd,$e5, /※ PUSh ix 半 / 
$e1 。 / 基 POP hl ※/ 
$ も fd,$ も e5 , /% PUSh 1iy 区 / 
$d 1 , /※ POP de ※/ 
$19。 / add hl,de 基 / 
$e5 , /%※ PUuSh hl ※/ 
$dd,$e1: /% POP ix ※/ 

の が 代 4 
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PrintXx(i1X): 
{ 


inline 


[2] 1 プ 0 ボ ポート へ の アク セス 


$dd ,$e5 , /※ PUSh 1iX 
$e1 , /%※ POP hl 
も Cd , 半 も 1202! /%※ Call1 hlhxpr 





Stellar で は X 1 の 16 ビ ッ ト の 1I/O 空 間 を アク セス で き 
な い の で ,。 リス ト 4-7 に 示す よう な 関数 outport, inport を 


使い ます 。 


PTO9 1nmOout( ): 
{ 


OUtpOrt (も 421$3999 ) : 
1 nmPOTt(: も 3990 ) 


inline 
) 


OUtpOTt(Vi 提 1X) 
{ 


inline 


} 
1nPOTt(i 間 1X) 5 
{ 


1n1 ine 


$ も Cd , 半 も 9913: 


$ も dd , も eS, 
も C1, 

も 38 。 革 、 り 。 
$ed,$79: 


$ も dd ,$ も e5 , 
$C1 , 
$ed,$78: 





[ 3 ] ラン タイ ム ・ ル ー チ ン 

ラン タイ ム ・ ル ー チ ン に は 13 個 の エン トリ ・ ボ ポイ ント が あ 
り ま す 。 各 エン トリ の 処理 は 次 の よう に な っ て いま す 。 

こ こ で code は 表意 定数 の 1 つ で オプ ジェ クト ・ コ ー ド の 先 
頭 ア ドレ ス を 示し て いま す 。 
_code 十 0 : 生成 し た オブ ジェ クト ・ プ ログ ラム を 実行 する 。 
_code 十 3 : オブ ジェ クト ・ プ ログ ラム の 実行 を 終わ ら せ る 。 
_code 填 6 : 1 バイ ト の 乗算 , aa * (hl)。de, hl は 破壊 


され る 。 
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8< が 
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_-code 十 9 : 1 バイ ト の 乗算 , aa *d。de, hl は 破壊 き 


れる 。 

_-Code 十 12: 1 バイト の 除算 , aa/ (hl)。de, hl は 破壊 
る れる 。 

-Code 十 15: 1 バイ ト の 除算 , aa/d。d, hl は 破壊 き 
れる 。 

-Code 十 18 : 1 バイ ト の 剰余 . aa% (hl)。de, hl は 破壊 
さ 和 れる 。 

_code 十 21: 1 バイ ト の 剰余 。 aa %d。d, hl は 破 境 き 
4 し る 。 


_code 十 24 : 左 シ フト 。a<a<< (hl) 。de は 破壊 され る 。 
_code 十 27 : 左 シ フト 。a<a < く <d。 de は 破壊 され る 。 
-Code 十 30 : 右 シ フト 。a< ョ >> (hl)。de は 破壊 され る 。 
_code 十 33 : 右 シ フト 。aa>>d。 de は 破壊 され る 。 
-Code 十 36 : 関数 へ の 実 引 数 を 仮 引 数 へ 転送 する 。 また , 再帰 
的 な 関数 の 場合 は 局所 的 な 変数 の セー ブ も 行 な 
う 。bc, de, hl, a は 破壊 きれ る 。 
まだ , ラン タイ ム ・ ル ー チ ン は ワー ク ・ エ リア と し て 48 バ 
イト の RAM 領 域 を 使用 し て いま す 。 そ の うち , 次 の 2 っ つ 
の 領域 は Stellar の プロ グラ ム で 参照 可能 な 領域 で す 。 ここ 
て _work は 表意 定数 の 1 つ で ワー ク ・ エ リア の 先頭 の アド レ 
ス を 示し て いま す 。 
_-Work 十 0 ・ 実 引数 の 数 。 
_Work 十 1 一 32 : 実 引数 の 値 (第 1 引数 一 第 32 引数 まで )。 
リス ト 4-8 の print と いう 関数 は , 与え た られ た 引数 の 個数 分 
だ け 表 示す る も の で す 。 
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PTO9 teSt(): 
【 


韻 の 
) 


PTint(): 
VaY CL33] 。Z at( wOrK):i 
{ 
Set 1X:=。C: 
Set 1yi=.Z? 
1OOP 昔 ,Z+]1 { 
@⑳[ 1X+]:=Q⑳[1y+] 
}) 
Set jiX:=。.C+1: 
ooP 昔 ,C { 
Q⑳[ 1X+] 
imnline $Cd, 村 $9913!) /%※ Call] putC ※/ 





4-4-5 ライ ブラ リ の 使い 


ライ ブラ リ に は , 基本 ライ ブラ リ , スク リー ン 制 御 ラ イブ 
ラリ , コン ソー ル 入 出力 ライ ブラ リ , 算術 ライ プラ リ が あり 
ます 。 
[ 1 ] 基本 ライ ブラ リ 
基本 ライ ブラ リ は サブ ルー チン を コー ル す る も の で す 。 レ 
ジス タ の 設定 , 参照 は 代入 文 で で きま す (リス ト 4-9)。 
WORKBUF は コン ソー ル 入 出力 ライ ブラ リ の 文字 列 の 入力 
で 使わ れる だ け な の で 自由 に 使用 し て くだ さき るい 。 
( T ) call (: アド レス ) 
アド レス で 指定 され た 番地 を コー ル し ます 。 代入 文 で 
レジ スタ の 値 を セッ ト し て 《 く だ る い 。 
スト 4-3 
CC 


ReV 1.9 15t Nobemmber 1984 光 
テキ テ テテ そそ そそ そそ エメ テテ テテ テマ マエ テテ そそ そそ エエ そ エ テテ テテ エエ そそ エエ テテ エエ エズ テ エ テ エ エイ 了 写 4 


VaY きす 2 。 DCLZ』。 GL2J, DL ジ 2J)、 IXLZ2」、 IyY【L] 。 
欠き も ( 。 すす 1)。 D aE(。 DC+ji) 。 
_d at(. de+1),。 h at(. hl+1): 





1 SS 





ウッ ま 
War wORKBUF[256]1 : 
/ 基 XX] IOCS Cal 1 ※/ 


CSLIE 313 
{ 


Ilmline $ ゃ も 21 ,#.Tt。 /% 1qd 主 ま .。 。\ で て 基 / 
$e5 , /%※ PuUSh hl ※/ 
$dd , $e5 , /※ PUSh jixX ※/ 
$284,#。 af 。 /% 1d hl,(.af)  ※/ 
$e5 , /% PuUSh hl ※/ 
$f 1 , /% POP af ※/ 


$ も ed ,$ も 4b, 持 . bC。 /% 1d bc,(. bc) */ 

$ed,$5b,#. de, / 1d de,(. de) ※/ 

$2a,#. hl, /%※ 1d hl,(. hl) ※/ 

$ も dd,$2a, 拓 . 1X。 / 1d 1X。(.。 jiX) ※/ 

$fd,$ も 2a. 村 . jiy。 / 1d 1y,(.。 ji1y) ※/ 

$C9: /%※ et ※/ 
か て : 


1mlime $fd,$22.#.・jy。 / 1d ( 。 jiy) 。iy ※/ 
$dd,$ も 22,#. jix,。 / 1d (. jiX) ,iX ※/ 
2 間 、 hl /%※ 1d ( . hl ) , hl ※/ 
$ed,$53, 拓 . deG, / テ 1d ( . de) ,de ※/ 
$ed,$ も 43, 持 . bC。 / 1d ( . bcC) ,bC ※/ 
$f 5 , /% PUSh af ※/ 
$e1] , /※ POP hl ※/ 
る 22。# き 。 af: /\※ 1d (. af ) ,hl *x/ 


[| 2 ] スク リー ン 制 御 ラ イブ ラリ 
スク リー ン 制 御 ラ イブ ラリ の 関数 の 機能 は HuBASIC 
ほぼ ば 同じ で す (リス ト 4-10)。 
( 1 ) width ( く カ ラム 数 >) 
( II) console (ys, yl, xs, xl) 
パフ メー タダ タ を すべ て 省略 する と, 最大 文字 数 表示 を す 
る 画面 に 戻り ます 。 
(II) sereen (< く 出力 ペー ジ >, < く 入 力 ペ ー ジ >, gmode) 
gmode が 1 の と き グ ラフ ィ ッ ク を 表示 し , 0 の と き 
は 表示 し ませ ん (1 行 あ た り の カラ ム 数 が 40 の と き 
の み 有 効 )。 
LUV) color ( こ カ ラー コー ドン ) 
文字 の 色 を 指定 する 命令 で す 。 
(V) backcolor (< く カ ラー コー ドッ >) 
育 京 の 色 を 指定 する 命令 で す 。 
(VI) cls (n) 
n の 値 は 次 の と お り で す 。 
U り の アア オッ グル 。、 ガラ メイ オッ オ 2。 プク ティ テッ 


16O 


3 を 同時 に クリ ア し ます 。 
1 … グ ラフ ィ ッ ク 1 を クリ ア し ます 。 
2 ゲラ ブフ ブ ィ イッ み 2 クリ ア し ます 。 
3 … グ ラフ ィ ッ ク 3 を クリ ア し ます 。 
4… グ ラフ イィ イッ ク 1。 グラ フィ イッ グ 2, グフ ラ フィック 
3 と テキ スト 画面 を 同時 に クリ ア し ます 。 
5 … テ キス ト 画 面 を クリ ア し ます 。 


(VII) locate (X, Y) 
リス ト 4- 10 
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COnSOl1e(yS,Y1 ,XS 。X1) 
SCYeeI(OUtPa9e, 1nPa9e,9mode ) 


COd e ) 


baCck COlOr(CO1Or_COde ) 


黄 

基 。 の Screen Control Library 
匠 

F 13 

※ 2.1 width(wS1Ze) 
間 2.2 

出 の 当 

き 2.4 COlOr(COlOT_ 
由 、 

由 2.6 CI1S(n) 

半 2.7 locate(X,yY) 
3 


其 
其 
幕 


基 
基 
四 
四 
折 
半 
生 
3 
/ 


Var LINLIM at($6) 。 WIDTHg at($7) 。 
CURX at($E) 。 CURY at($F ) , 
CURYST at($16) , CURYED at($17 ) 
CURXST at($1E) , CURXED at($1F)。, 
COLORF at($26) , CLSCHR at($ も 27 ) : 
width(wS1i1Zej})i 
{ 
_a := wSiZ6ei 
Cal1(:$988): 
) 
COnSOle(yS,yl1,XS,X1): 
{ 
if ( y5 = 9 & yl = 9&x5 = り xl = 9 ) then 
{ 
yl := 25: 
X] := WIDTH0i 
gOtO OKi 
} 
if (ysS < ! ys > 24) then goto ERROR? 
if (yl < 1 ! yl > 25-ys) then 9oto ERROR: 
1f (xS < 9 ! xS > WIDTH9-1 ) then goto ERROR: 
if (xl < 1 ! X1 > WIDTH9-xs) then gotO ERROR: 
OK: ' 
CURYST := ySi CURYST := ys5 + Y1i 
CURXST := XSi CURXED := XS5 + Xi 
1$ Teturmi /%※ TOYT 下 81 TetUTTI / 
ERROR : 
FetUurTi /% erTYOT YetUTT 拉 / 
} 
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Se 押 





SCTeeT(OUtPa9e, 1nPa9e,9mOQde) 


{ 
_a := OUtPa9ei 
Cal1( ji も 9C0W ) 
_a := 1TIPa9ei 
Cal1( ji も 9f5): 
1f 9mmOde then Call(i$a5a ) 
el1Se 1nline 
も 9 1 、# 和 も 19009, /※ 1d DC,1999h テ \/ 
も af , /% XOT 8a 着 / 
ゃ ed , も 79, /※ OUt (C),a blue 半 / 
$ も 94 /% jmC b 光 / 
$ も ed , も 79, /% OUt (C),a red / 
$94 , /%※ iC Db 其 / 
も ed , も 79。 /# OUt (C),。a gree 基 / 
$94 , / テ ※ jmC b 基 / 
も ed , も 79: /※ OUt (C)。a PFT1OT1ty ※/ 
) 


CO1Or(CO1Or COde ) : 
{ 


COIOTY COde := COlor code % 8i 
COLORF := (COLORF & $f9) ! Color_cCodei 
) 
baCkK_ COlOrT(COlOr_COde ) : 
{ 
if COlor_cCode > 7 then Color_code := color code % 8: 
inml ine 
も 3a,#.CO1Or Code, /※ 1d a,( .CO1Or COde ) ※/ 
$21」$ も 16.9, /※ 1d hl ,RPRIOF ※/ 
も 96,3, / 1qd b,3 基 / 
$cCb,$ も 1 e, /※ 10OP か ま (hl ) 光 / 
$ も 9f , /% TTYCa 基 / 
$Cb,$16。 /※ 1 (hl ) %/ 
$23 , /※ imC hl 光 / 
$19,$f8, /※ djJnZ 1oop %/ 
$Cd , $5a ,$ も ai /\※ Call StDTiO  ※/ 
} 
C1S(n)i 
/ 交 TI 。。 則 GrapPhic Clear 
| Vram(4999H-7FEFH) Clear 
2 Vram(8999H-BFFFH ) Clear 
3 Vramm(C999H-FEFEFFH) Clear 
4 Text Clear GraphicC(4999H-FFFFH ) 
S text Clear 
基 / 
{ 
if ( nn = 9) then Call(i$ も a8f ) : /% GFTapPhiC Clear テ ※/ 
elseif (nm = 1) then fillVvramm(9j$4999 も 4999 ) : 
elSeif (n = 2) thenm fillVvram(i も 8999 ,$ も 490909 ) : 
elSeif (nm = 3) then fillVramm(9i$C999 , も 4999) 
ElSe1f (mn = 4) then 
{ 
Cal1(i も 6e4) /※ eXt Clear & CurTSOr hO 昌 GE ※/ 
Call(i$* も a8f ): /% GTaPhiC Clear ※/ 
} 
elSeif (n = 5 ) then Cal1(i$ も 6e4): /%※% teXt Cl1ear テテ / 
el1Se {9 retUrni} /% TYOT %/ 
1 /# TO 本 al TetUT ※/ 
} 


1OCate(X,Y) 
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リス ト 4- 10 月 つつ き さ 


1f (y < CURYST ! y > CURYED ) then goto ERROR: 
if (X >= CURXST & xX < く CURXED ) then 


{ 
CURX := Xi 
CURY := yi 
1 5 
returnii 
} 
ERROR : 
9: TeturT: 
+ 
fillVvram(CiiX。1y)i 
/※ 「 fill] chracter 
1 X fill Start addreSsS 
1 y fill length 
基 / 
{ 
inline 
$dd ,$e5 , /※ PuSh 1 X 基 / 
$C1 。 /※ POP bc 上 %/ 
$fd,$e5 , / PuSh 1 y 基 / 
ゃ も e1 , /※ POP hl %/ 
$3a, 半 .C, /※ 1d 8,(C) 失 / 
$57 。 / 1d d,a 基 / 
$ed , $51 , /※ 1OOP: Out (Cc) ,d 基 / 
$93 , / 其 IIC bC 基 / 
$2b, /※ deC hl 基 / 
作 げ C 。 / 1d a,h 類 / 
$b5 , /※ OT 1 基 / 
$ も 29,$f 8 / JY nZ, 10OP ※/ 
}) 


[ 3 ] コン ソー ル 入 出力 ライ ブラ リ 
ュ ン ソール (CRT,。 キー ボー ド ) も の 入出 力 や プリ ンタ 
へ の 出力 の た め の 関 数 で す (リス ト 4-11)。 
([) print_str (C , ぐ 文字 列 の 開始 アド レス >) 
NUL コー ド (0 ) で 終わ る 文字 列 を 出力 し ます 。 文 
字 列 を 出力 し た 後 ,。 C が 1 の と き は 改行 し ,。 0 の と き 
は 何 $ し ませ ん 。 
(II) print_num ( く 数 >) 
侍 与 な し の 1 バイ ト の 数 を 10 進数 で 出力 し ます 。 
(IL) print_hex ( く 数 >) 
数 を 16 進数 で 出力 し ます 。 
(IV) print_chr (< 数 >) 
数 を を その まま 文字 と し て 出力 し ます 。 
(V) print_spc ( く 回 数 >) 
回 数 分 だ け ス ペー ス を 出力 し ます 。 回 数 を 省略 し だ と 
き (つま り 0 の と き ) は 1 回 だ け 出 力 し ます 。 
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(V) 


(VII) 


(WM) 


(IX) 


(X 


ee 


(X1) 


cr( く 回 数 >) 

回 数 分 だ け 改 行 し ます 。 回 数 を 省略 し た と き は 1 回 改 

行 し ます 。 

input _str (m, b, S : く 文字 列 格納 アド レン レ 

ス >, < く メ ッ セ ー ジ 先頭 アド レス >) 

文字 列 を 入力 する と き に 使い は ます 。m は 入力 する 文字 

列 の 最大 長 で す 。b が 0 の と き は 1 行 全体 を 入力 し , 

0 以外 の と き は メッ セー ジ を スキ ッ プ し て 文字 列 を 入 

力 し ます 。 Ss が 1 の と き は メッ セー ジ を 画面 に 出力 し 

ます 。 Ss を 省略 し た 場合 は 出力 し ませ ん 。 この 関数 値 

は 入力 し た 文字 列 の 長 る で す (文字 列 の 長き る が m よ り 

大 きい と き は 一 1 を 返し ます )。 こ の 関数 の 実行 を 終 

了 す る に は 次 の 4 通り の 方 法 が あり ます 。 

⑯ キ ー, M に よる 正常 入力 。 

@② の 」 に よる 現在 の カー ソル より も 前 の 文字 列 の 正常 
入力 。 

⑥ SHIFT 二 BREAK キー, C に よる 入力 キャ ン セ ル 。 

の D に よる 入力 キャ ン セ ル 。 

入力 キャ ン セ ル の 場合 , 実行 は 中 断 し ます 。 

Input_num (S : ぐ 文字 列 格納 アド レス >) 

キー ボー ド か ら 入 力 し た 数 値 が 関数 値 し な り ま す 。 入 

カカ で きる 数 値 は 10 進数 で 0 ~255 で す 。S が 1 の と 

き は メッ セー ジ を 画面 に 出力 し ます 。 Ss を 省略 し た 場 

合 は 出力 し ませ ん 。 

input_chr ( ) 

キー ボー ド か ら 入 力 し た 1 文字 が 関数 値 し な り ま す 。 

inkey (1 ) と 同じ で す 。 

inkey (n) 

BASIC の inkey$ と 同じ で す 。 

Ipt_sw (sw ji れ 

文字 列 の 出力 を sw が 0 の と き に コン ソ ツール, 1 の と 

き に プリ ンタ に 切り 替え ます (“print" で 始ま る 関数 

名 の み 有 効 )。 初 期 設 定 で は 文字 列 の 出力 は ユン ソー 


ル ょ な が っ て いま す 。 
(XII) stov ( :# く 文字 列 の アド レス ンジ ) 
数 字 の 文字 列 を 数 値 (0 255) に 変換 し ます 。 
(XIII) vtos ( く 文 字 列 の 最大 長 >, ぐ 数 値 > : ぐ く 文字 列 を 
格納 する アド レス > ツジ) 
数 値 を 10 進数 の 文字 列 に 変換 し ます 。 
(XIV) abort (S : く < アド レス >) 
この 関数 を 実行 する と プロ グラ ム は 停止 し ます 。 S が 
1 の と き に < く < アド レス > か ら の メッ セー ジ と 
“Abort. . . "と 表示 し ます 。 S を 省略 する と メッ セ 
ー ジ は 表示 る れ ま せん 。 


人 エネ エネ エエ エエ エエ エエ エエ エエ よ よ スト エエ エメ エナ エエ エエ エナ エメ エエ エエ エエ ナ エエ ナ エ テ エキ テ エ ・: 


次 3 
芝 3 1/0 ConsSole Library er 
芋 28th Octber 1984 by H.watanabe 3 
基 迷 
評 3。1| PrY1mt Str(Ci1iX) 基 
3.2 Print num(V) 基 
# 3.3 Print hexX(C) 3 
生 3.4  PY1t ChY(C) 芝 
革 3.5 jnPput Str(mm。biix) 芝 
計 3.6 inPput num( ) 
拓 3.7 input Chr() 和 
3.8 inKey(I) ー 
テ 3。9 Print SPC(n) 半 
デ 3。.19 Cr(n) 区 
に 3。.1 1 1Pt Sw(Swi 韻 。 韻 ) 基 
し : 3.12 StOV( i 梓 1X) 革 
3.13 VtOs(1ength,Value: ix) % 
匠 甘 
其 療 捧 其 其 湊 其 其 其 振 其 湊 其 其 療 其 其 其 其 湊 其 捧 其 其 其 其 其 藤 其 其 甘 其 基 湊 湊 其 其 其 其 其 其 其 甘 基 黄 基 其 捧 / 


Var FILEOUT at($1472) /% FILEOUT moOde ※/ 
data _1pt: 昌 /※ 1h1t CRT diSplay ※/ 


稚 も 人 も たま 記 を ま 人 す 5 


FILEOUT := _lpt: 


inline $dd,$e5, /※ PUSh ix 類 / 
$d 1 ゃ / 基 PD dE 其 / 
も Cd , せ も 142fi / 基 Cal]1 1prYimt テ ※/ 


if (C=]1) then C た tt) 1 
FILEOUT := 9i 


) 

PT1nt mumW(V)i 
Var pf 51: 
{ 


- 【 1 議 な 9 才 .) 中 

VtOS(5,Vi 1X): 

while 介 [ixX]=" ' { 
1TIX 1Xi 

} 

Print Str(iiX): 
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So 誠 < 


1 





PTYint hex(C): 
{ 


FILEOUT := lpt: 
_a := Ci 
Ca11(i も 1297 ) : 
FILEOUT := 9: 

ナ 


PTint Chr(C): 
( 
FILEOUT := 1pt:i 


_ 8 := Cs 
Cal1(:i も 1429) 


FILEOUT := 99: 


} 
1mPUt StYT( 箇 ,。D,Si1X,」 1i1y): 
Var 1 1 
{ 
1f (5 = 1) thent 
inline 
$fd, も e5 , / 基 PUSh 1iy 
$d1 , / 基 POP de 
$ も Cd も 99D: /%※ Call print 


} 
_de := 1Ow.WORKBUF: 
d := hi.WORKBUF : 


基 / 
基 / 
着 / 


if b = 9 then Call(:i$93): else call(:i$15a): / 1ine 1 nmPUt ※/ 


1f Carry() then StoOp: 
1dX 1y:= dei 


fOT 1:=1 ttO 前 { 
1f (mW[1X+]:=Q[1y+])=9 ther { 
1-1: returni 


} 
} 
Q[ ix]:=9: 
本 


1mPU【t num(Siix): 


{ 
1f (5 = 1) then( 
1mline 
$ も dd , も e5 , / 基 PUSh ix 
$d1 , /%※ POP de 
ゃ Cd , 999Db: /※ Call Prjint 
) 
_de := ]Ow.WORKBUF : 
_d  := hi.WORKBUF : 
Cal1( ji$ も 15a) : /※ ] jme inPput ※/ 
if Carry() then Stop: 
1dX 1X:= dei 
StOV( iiX)i 
}) 


lnPut Chr( )i 
{ 


inkey(1): 
} 


1nKey(n): 
{ 
前 ( 


_ る 8 8 
Cal1( ji も 1b): 
_8i 


16O 


/※ CaTnCE] ※/ 


基 / 
基 / 
区 / 
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PTint SPC(n) i 
Va Z at( woOrK)i 
{ 
if Z=9 then ni:=1i 


if n then 1oop #,mn { 
PT1nt ChYT(′) 「)ji 


) 

) 
CT(n)i 
Va Z at( _wOrK) 
{ 

1f Z=9 then Ii:=1i 

if n then 1OOP 草 .n { 

PTYinmt ChrT(13j)・ 

) 
1]pt SWM(SWwi 提 。 提 )j 
VaT LPTFLG at(. 1pt)i 
{ 

LPTFLG := ?2(5wi1.9): 
す 
StOV(i 提 1X) 
VaT' C。 Vi 
( 

while @[ix]=′ ' { 

1TX 1Xi 
}) 
V・ = 


while (C:=Q[iX])>= "| 衣 C く = dd'" { 
V:=C- "有明"'+VX1Mi 
1mX 1Xi 


} 
Vtos(length,Valuei1X) 
{ 


1oOP 暮 ,deC(l1ength) { 
@L1X+]:=/ 「: 


} 

胃 [ 1X-]: = 

{ 
Q[1X-]:=Value%19+'9' 
Value:=Value/19: 

}) until Value=9 ! deCc(length) = : 


} 

abOrt(Si1iX)i 

data GS: " AbOort. . .", 時 : 
【 


PTimt Chr(7)i 

1f (5 = 1) then print StY(9i1X)i 
PTYinmt StrT(1i. 和 ES) 

5tOP 


[ 4 ] 算術 ライ ブラ リ 

算術 ライ ブラ リ は ワー ド 長 の 加減 乗除 算 の 関数 と 2 次 元 の 
配列 を サポ ー ト し て いま す (リス ト 4-12)。 

(T)addw(aiL ah bl bh: く ア ドレ ス >) 
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ワー ド 長 の 加 上 算 。 
(II) sub w (a 1 a h, bl, b h: < アド レス >) 
ワー ド 長 の 減算 。 
(IL) mul (a, b) 
バイ ト 長 の 乗算 。 結 果 は a*b の ト 位 バイ ト 。 
(IV) mulov ( ) 
mul 関数 の 乗算 結果 の 上 位 バ イト の 取り 出し 。 
(V) mul_w (a 1, a_h, b 1, b h: < く アド レス >) 
ワー ド 長 の 乗算 。 
(VI) mulov_w(: < く アド レス >) 
mul_w 関 数 の 乗算 結果 の 上 位 バ イト の 取り 出し 。 
(VI) div (a, b) 
バイ ト 長 の 除算 。 結 果 は 4 / b の 値 。 
(VM) mod (a, b) 
div 関数 の 除算 の 余り を 取り 出す 。 
(IX) div w (a 1, a h, bl, b hi: < く アド レス >) 
ワー ド 長 の 除算 。 
(X) mod_ w(!: く ア ドレ ス >) 
div w 関数 の 除算 の 余り を 取り 出す 。 
(XI ) array (x,。 y!) く ア ドレ スン >) 
2 次 元 配 列 の 配列 愛 素 の アド レス を 求め る 。 
arT2V (x。Y。Z) こく プ ドレ ス フ >) 
3 次 元 配列 の 配列 要素 の アド レス を 求め る 。 
(XII) 1oad_array (x, y: く ア ドレ ス >) 
2 次 元 配列 の 配列 要素 の 参照 。 
load_array (x, y, Zj く ア ドレ スン >) 
3 次 元 配 列 の 配列 愛 素 の 参照 。 
(XI) store_array (a, x, y, : こく アド レス >) 
2 次 元 配列 の 配列 愛 素 へ a の 値 を 代入 。 
store_array(a, x, y, 2,) くく アド レス ンジ) 
3 次 元 配列 の 配列 要素 へ 4 の 値 を 代入 。 
この うち add WW, sub_w, mul_w, diV W は パラ メー タ 
の 渡し か た が 同じ で す 。 つ まり a_1l と ah, bl と bh を る を 
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れ ぞ どれ 一 つの 2 バイ ト の 数 1 が 下位 , h が 上 位 ) と 見 な し 
符号 な し 2 進 整数 と し て 計算 し て 結果 の 下位 バイ ト を く ア ド 
レス > へ , 上 位 バ イト を く ア ドレ ス > 二 1 へ 代入 し ます 。 こ 
の と き , add w, sub_w は 計算 結果 に 桁 上 が りや 桁 ト が り 
(ボロ ー) が 発生 し て いれ ば キャ リー フラ グ を 立て ます 。 

mul w の 計算 結果 は 一 般 的 に 4 バイ ト 長 に な り ま す が , 
この 関数 で は 下位 2 バイ ト だ け を 結果 と し て 返し ます 。 残る 
上 位 2 バイ ト は mulov_w を 呼べ ば 求め られ ます 。 求め た 値 
の 下位 バイ ト は く ア ドレ ス > へ ヘ へ, 上位 バイ ト は く ア ドレ 
ス > 二 1 へ 代入 し ます 。div_w で 発生 し た 余り を mod_w で 
求め る こと が で きま す 。 求め た 余り の 下位 バイ ト は く ア ドレ 
ス > へ 。 上 位 バ イト は く ア ドレ ス > 二 1 へ 代入 し ます 。 

mul, diV は 1 バイ ト 長 の 計算 (符号 な し 2 進 定数 ) で パ 
ラメ ー タ の 渡し か た は 同じ で す 。 計算 結 果 は 関数 の 値 と し て 
返さ きれ ます 。mulov は mul の 計算 結果 の 上 位 バ イト を 求め 
- る も の で , これ も 結果 は 関数 の 値 と し て 返さ る れ ま す 。 

mod は div の 除算 で 発生 し た 余り を 求め ゆる も の で , 結果 
は 関数 の 値 と し て 返る れ ま す 。 

array, load_array, store_array は , Stellar で サポ ー ト 
し て いな い 2 光 元 , 3 次 元 の 配列 を 扱う た め の 関 数 で す 。 2 
次 元 , 3 次 元 の 配列 は 次 の よう に 宣言 し な けれ ば な り ま せ 


ん ル 。 

の 
data < 配列 名 ・ < ワーク の 先頭 アド レス >, 
ki 信人 きか 1 < 


の 3 配列 の 和 


data < 配列 名 > : < ワー ク の 先頭 アド レス >, 





do の きみ の 人 き 2 


や ヤリ ワー ク グ テ み 上 は , 志 列 要素 を 記憶 する た め の 領 城 
所 まま (X の 長 る さる) *※ (Y の 長 る ) * (Z の 長 る 3) 以 
上 で な けれ ば な り ま せん 。 | 
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1 7 〇 


array は X, Y あ るい は X, Y,。 2Z で 示さ る れ た 配列 要素 
( く 配 列 名 > [x, Y] や < 配列 名 > [x, Y, 2Z] ) の ア 
ドレ ス を 求め る 関数 で , 結果 の アド レス は イン デック ス ・ レ 
ジス タ ix に 設定 され て いま す 。 

load_array は 配列 愛 素 (同上 ) を 参照 する 関数 で , 参照 し 
た だ た 値 を 関数 値 と し て 返し ます 。 

store_array は 配列 要素 (同上 ) へ a の 値 を 代入 する 関数 
を す 。 


リス ト 4- | Z 





黄 黄 黄 其 其 其 其 英 其 藤 其 其 藤 其 長英 基 藤 其 藤 其 療 藤 其 藤 其 基 湊 其 藤 藤 黄 長 湊 貢 挟 湊 長 其 其 折 其 藤 長 療 藤 湊 其 
4 arithWWetiC 


add _ w(a 1,a h,。 
Sub _w(a 1,a h, 
UL1(a,Dbj 草 。 菩 ) 
UIOV(: 韻 , 韻 ) 
WU1l_w(a 1,.a_ h,b 1,b hiiX, 拉 ) 
UIOV _w(iiX。 韻 ) 


区 

其 

hiiX, 草 ) 革 
3 

其 

黄 

時 

年 

GIVtA 』。a h、b 1,b hi IX, き ) 英 
字 

基 

江 

其 

基 

黄 

と 

/ 


149_ 
bD_1,bD_hi1iX, 韻 ) 


OO ( ? 提 。 韻 ) 

diV w(a 1,a h,b 1,b hiixX, 拉 ) 
.19 mmOd _w(iiX, 革 ) 

11 arrYay(X。y,Z: 革 1X,。 革 ) 

.12 1oad array(X,y,Z:1X。 斗 ) 

.13 StOYe_arYay(a,X,Y,Z)1X, 昔 ) 


し 
(の ココ の の の 心 の ロー デ 


/ 
英 
工 
英 
黄 
英 
黄 
黄 
其 
其 
匠 
黄 
黄 
英 
ei 
提 
英 


も a 広 。 二 。 主 。 二 。 二 。 計 二 二 二 . ま エエ エエ エネ エネ ミエ エエ エエ エエ エエ エエ ミネ エメ エメ メメ ネエ エエ エエ エエ よさ. 


add_w(a 1,a _ h,Db 1,.Db hi jiX。 六 ) 


{ 
1mnl 1ne 
$ も 2a,##、a 1。 /※ 1d hf、a 1) ※/ 
$ も ed,$ も 5b, 提 .bD 1,。 / テ 1d GEG。 を 。 わ お 上 ) 次 / 
$19, /% add hl。de ※/ 
$dd , も 75 , も 99 , /% 1d (Ex ) 。』 に / 
ゃ dd ,$ も 74 、 も 91: /%※ 1d ( ix+1 ) ,h %/ 
} 


SubD_w(a 1,a_ h,Db 1,D hiiXx。##): 
{ 


1mnl 1ne 
$ も 2a, 共 。a 1。 /X 1d hl。(.a 1) ※/ 
$ed,$5b,#.b 1, / 1d de,(.b 1) %/ 
$b7 , /※ Or a ※/ 
ゃ も ed , $52 , /※ SbC hl,de ※/ 
$dd , も 75 ,$90 。 /※ 1d 省き 甘 / 
$dd ,$74 も 91: /※ 1d (ix+1) 。h ※/ 

) 

data ml:99。 muUl w:99,99: 

MMU1(a。Di 提 。 提 ) : 

Var 別 U1 面 at( COde+6) : 

{ 
1 nl 1ne 
る 21 、#。b, /% 1d hl , .b 光 / 

PO 半 4 





フリ スト 4- | 


) つづ き 


$384, 提 .a, 

も Cd , 半 .U] 凍 。 
$af , 

$94, 

$7C, 
$32 , 失 . 古 U] , 
$7d: 


} 
間 U1OV( ji 韻 。 韻 ) 5 


) 


_ 陣 U] : 


muUl _w(a 1,a hb 1,Db hiiX, 井 ) 


) 


1d 
1d 
SuUb 
1d 
SbC 


Inline 

$C5 , / 
も 2 1 , 半 9999 , / 基 
$ed ,$4b, 韻 .a 1。 /※ 
$ed,$5b,##.D 1。 /% 
$3e,$1 9, / 区 
$29 。 / 
$Cb,$1 1 , / 甘 
$cCb ,$1 0 , /% 
$39 , $9 4 , /% 
$19, / 類 
$39 , も 91 , / 半 
$93 , / 立 
$3d , /※ 
$20 , も {2 , / 
$ed ,$43, 寺 。 mul w,/% 1d 
$dd ,$ も 75 ,$ も 99 , / 
$dd , も 74,$91 , /% 
も 99 , / 半 
$36e ,$0909 。 / ※ 
$99 , / 
$C1 : /※※ 


加 UIOV _ W(i1X。 井 ) 


) 


@[iX,1]:= ml _w[1]i 
@[1X]:= mWUl_w: 


data 是 Od:99, mod_w:99,.99: 


| diV(a, bi, 柱 ) 1 


VaT Ye 岬 看 at( COde+$1 2 ): 
{ 


) 


【 


1nmline 
$3a,#.3。 

$ る 21 。#。D, 

$ も Cd ,#.TemW 四 。 
$32 , 杜 . moOd 。 
$b7 , 

$7b: 


| mod( :#。 社 ) : 


_ 前 Od : 


/ 甘 
/ 


/※ Call 


/ 基 
/ 基 
/ 先 


POP 


1d 
1d 


1d 
Or 
1d 


1d a,(.3a) 
Cal1 思 U] 前 
XOYT aa 
Sub h 
1d a,h 
1d (。 UMl),a 
1d a, 1 
PuSh bC 
1d h1 , 99909 
1d DC,(.a 1) 
1d GeG、【。b 1) 
1d a,19h 
add hl,hl 
が の 
Y1 b 
ま nC,S1 
add hl,de 
Jr nC,S1 
lmC DC 
deC る a 
Jr nZ,」1P 


(。 面 U] w),DbC 
坦 上 夫 訂 昌 
(ix+1),h 
b 
a,M 
8,C 
bcC 


a,(.a) 
hl , .b 

Te 町 胃 
(。 四 Od) ,a 
コ 

a 。 6 


基 / 


基 / 


1 間 m 5」 


<。 


イサ フ 
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div w(a 1、a h,b 1,b_hi1X,#): 
( 


1nline 
る 2a, 共 8 1。 /# 1qd hl,(.a 1) 首 / 
$ も ed,$ も 4b,##.b 1], /# 1d bC,(.b_1) 盾 / 
$] ] , 半 9990 、 /# 1d de,9996 捧 / 
$3e,$10, /% 1d a,19h 哲 / 
$29 , /\# add hl,hl 1P 其 / | 
も eb , / 基 選 区 de,hl 着 / | 
$ed , $63 , /* adC hl,h1 ※/ 
$ed , $42 , /\% SbC hl,bcC %/ 
$13, /%※ inmC de 洋 / 
$39 , $ も 92 , /% JP 1C,S1 着 / 
$ も 99 / 基 add hl,bc 拓 / 
$1b, [ /# 基 deC de ル / | 
$eb , /% ex de,hl : 5 1 ※/ 
も 3d 。 / 着 deC 8a 上 / 
も 20 ,$f 1 。 / JT 1Z,1P 光 / 
$dd ,$75.09。 /%※ 1d (1X)。 ょ 拓 / 
$ も dd ,$74.91 , / 基 1d (1x+1 ) ,h 着 / 
も ed ,$53, 半 . mOd_W,/%※ 1d ( 。 mmOd_w) ,de 療 / 
$7b, / 基 1d 8a,@e 上 / 
$b2 : /% OrY d 着 / 
) 
| 前 Od_W(i1X, 間 ) 5 
| { 
@[1xX,1]:= WOd_w[1]i 
@⑳[1X]:= OOd_wi 
) 
arTYTay(X,Y,i 提 1X。 音 ) 5 
VaY adr 1,adr_hi 
{ 
| 1f @[ix,4]-1 tnent 
adr 1]:=mUl(Z,@[1X,3])jadr_h:=muloV( ) : 
1n11ne 
$2a, 韻 .adY _1。 /% 1d hl ,(.adr _1) 菩 / 
$38 , 韻 .Y, /%※ 1qd a,( .Y) 革 / 
$ も 5f , / 甘 1d 4。 8 所 / 
$16.,$ ゃ 9, /% 1qd d,99 アプ 
$ も 19。, /% add hl,de 基 / 
$22,#.adr 1 /\# 1d hl,(.adr 1) / 
mmUl w(adr 1,adr_ h,@[1X。2].9:.adT_1): 
} 
else {adr 1:=mul(y,@[ix,2])i:adr_h:=WulOV())} 
1n11ne 
$2a, 提 .adT 1] /※ 1qd hl ,(.adr 1) 基 / 
$dd ,$ も 5e,90, /※ 1d e。(ixX) ※/ 
$ も dd , 56 .,91 , /※ 1d d,。 (ix+1 ) / 
も 1 9 。 /%※ add hl,de 4 
$3a , 革 .X, /%※ 1d 83。( 、X) ※/ 
$5f , /%※ 1d 6,a ※/ 
$ も 16,$ も 99, /% 1d d ,99 ※/ 
$1 9 , /* agdd hl,de %※/ 
$ も e5 , /※ PUSh hl ※/ 
$dd ,$e1 /※ POP 1X ※/ 
) 
| 1oad_arTay(X。y,Z?1X。 韻 ): 
の eo 8 


4-4 コン パイ ラ 


リス ト 4-12 請 記 た 





て 
arTTay(X,y,Z:1X): 
| 全 [ 1X]i 
} 
StOYe_arTTay(a,X,Y, 乙 )1X,」 昔 ) 
{ 


arYay(X。y,。Zi1X): 
代 [ 1x]:=ai 


人 。 。 
4-4-D コン バイ ラ の 全 リ スト 

Stellar コン パイ ラ の 全 ダ ンプ ・ リ スト を リス ト 4-13 に 示 
し ます 。 こ の と お お り に 打ち 込め ゆば すぐ に Stellar が 使え る 
よう に な り ま す 。 

( 1) コン パイ ラ の ダン プ ・ リ スト と 打ち 込み か た 

ダン プ ・ リ スト の チェ ッ ク サ ム は 8 バイ ト の デー タ の 和 で 
す 。 モ ニタ の 一 部 を 変更 する こと に より ダン プ ・ コ マン ド 
(D コ マン ド ) で チェ ッ ク サ ム を 表示 で きま す (8 バイト 文 
字 は 表示 され ませ ん )。 変更 筒 所 を 図 4-19 に 示す の で M コ ユマ 
ンド で 変更 し て 《 だ さい 。 

ュ ン パイ ラ は BASIC と 領域 が 重なっ て いる の で , 絶対 に 
R コマ ンド を 実行 し な いで 《 だ さる い 。 実行 開始 番地 は 14 A 
0 HH なので, “G 14 A0[" と し て 起動 し ます (コー ルド ・ ス 
デー ドド お 








モニ タ の 変更 箇所 






:11C8=3A CD 29 14 41 AF 86 23 : 
:11D9=19 FC CD 97 12 99 99 99・: 
:11D8=99 99 99 99 99 99CD46: 


( 2 ) IPL 起動 


IPL 起動 する に は M コ ユマ ンド で 次 の 2 カ所 を 変更 し て , 





012BH っ AO 


012CH 一 14 


プア つ 





リス ト 4-13 


1 7 人 4 


・14A9g=C3 1 
・14A8=16 
・14B9=90 
・1 4B8=90 
・14C9=4F 
: 1 4C8=90 
・14D9=93 
・1 4D8=4E 
・1 4E9=0 
・14E8=46 
・14F9=FF 
・14F8=3A 
・1599=17 
・1598=65 
1519=6F 
・1518=29 
・1529=EF 
・1528=99 
・1539=Ad 
・1538=FE (| 
・1549=ED 
・1548=E1 





C1 


S コ マン ド で カセ ッ ト ・ テ ー プ に 


*S0() 67DF 0 : Stellar |d| 
と し て セー ブ し て 《 く だ る きい 。 
これ で セー ググ され た テー ジ は IPL 起動 で きる よう に な り 
ます 。 ま だ た, テキ スト (ライ ブラ リ な ど ) を Stellar と いっ 


し ょ に セー グ し て IPL 起動 する と こと も で きま す 。 テ キス 
ト の 最終 アド レス は 14B6H, 14B7H に 示し て ある の で セー ブ 
する と き の 最 終 プ アドレス を テキ スト の 最終 アド レス に 変更 し 
て セー ブ し て くだ きい 。 だ た と えば 14B6H が 1AH, 14B7H が 97H, 
な ら 













Source on Memory (YN 





: 表示 する の で ,。 メモ リ 上 に プロ グラ ム が ある と き は Y ( ま 
だ は Y) な いと き は N (まだ は n) を 押し て くだ る きい 。 
この 時 点 で 画面 に “ST>" と いう ブロ ンプ グ ト が 表示 る れ ま て , 
コマ ンド 待ち に な り ま す (コマ ンド ・ モ ー ド )。 


15 C3 61 15 C3 65 :55 :1559=B6 14 AF 32 B2 FA 18 93 :72 
6F 16 C3 6C 16 9 :A3 :1558=CD 6C 19 21 A9 14 22 2B :74 
FF D8 99 99 99 99 :3F :1569=91 31 99 99 3E 92 32 8B :2F 
53 45 44 99 99 4D :49 :1568=9A CD 8C 99 CD 4F 18 CD :6D 
9 91 43 4F 4D 59 :CD :1579=A3 94 11 27 16 CD 9B 99 :CD 
4C 44 4F 42 4A 9 :6D :1578=21 A3 14 22 53 19 3E 59 :EB 
55 4E 99 94 43 4F :8E :1589=32 96 99 CD E1 15 21 86 :A2 
99 95 42 4F 4F 54 :DB :1588=15 E5 CD BA 15 CD A3 94 :9A 
41 59 53 53 99 97 :44 :1599=11 23 16 CD 9B 99 11 99 :33 
4C 45 53 99 98 9 :7B :1598=FF CD 93 99 D8 CD EB 15 :74 
14 AB 16 16 3A 27 :F4 :15A9=D8 CD 1A 16 D8 CD F9 15 :88 
3D 94 3D C9 16 93 :5D :15A8=FE PFF C8 87 16 99 5F 21 :E2 
17 53 6F 75 72 63 :59 :15B9=F1 14 19 7E 23 66 6F C5 :59 
6F 6E 29 4D 65 6D :A1 :15B8=D1 E9 3E 92 32 8B 9A 21 :E2 
79 29 28 59 2F 4E :78 :15C9=61 15 22 7E 14 91 99 19 :3B 
3F 99 CD E8 39 CD :43 :15C8=AF ED 79 94 ED 79 94 ED :79 
AF 32 8B 9A CD 8C :D6 :15D9=79 94 ED 79 94 32 72 14 :9F 
93 15 CD 9B 99 CD :D7 :15D8=32 1E 99 3E 4F 32 1F 99 :2E 
CD 13 99 CD 51 14 :ED :15E9=C9 AF 32 16 99 3E 17 32 :47 
29 1C AF 2A B2 14 :32 :15E8=17 99 C9 21 23 16 EB 1A :3F 
B9 14 ED 42 E5 C5 :D5 

ED Bl 29 9A 2B 22 :B7 っ づく 


リス ト 4- 





15F9=B7 
15F8=FG6 


:1699=28 


1698=23 


:1619=FB 
*1618=C9 
:1629=28 


串 可 


王 。 画 可 っ 中 加 耐 加 


1628=3] 
1639=72 
1638=65 
1649=2E 
1648=C8 


:1659=12 


し ます 商 朗 


1658=59 
1669=7E 


1668=21 


「 証 症 還 馬 還 時 | 1 症 呈 ま 敵 症 呈 」 


LE 吾 」 


1679=90 


1678=8C | 


1689=CD 
1688=CD 
1699=19 
1698=16 
16A9=16 
16A8=13 


: 16B9=9E 
:16B8= 1 1 
:16C9=97 
:・16C8=C9 
・16D9=A3 
・16D8=1 1 
・16E9=960 
・16E8=72 
・16F9=75 
・16F8=29 
・1799=C3 
・ 1798=FE 
・1719=CD 
・1718=B7 
・1729=2 1 
・1728=09 
・1739=9B 
・1738=7F 
・1749=18 
・1748=CB 


・1759=2F 


・1758=14 
・1769=CD 
・1768=E5 
・1779=109 


・1778=93 : 


・1789=1 1 
・1788=14 
・1790=14 
・1798=2F 
・17A9=F6 
・17A8=20 
・17B9=96 
・17B8=F9 
・17C9=7E 
17C8=17 
・17D9=9F 
・17D8=2F 
17E9=17 
・]17E8=F 
・17F9=9F 
:17F8=23 
・1899=37 
・1898=D1 
:1819=C9 
:1818=17 


・1829=F4 
:1828=73 
:・1839=69 
:1838=75 
・1849=57 
:1848=69 
:1859=9F 
・1858=9F 
:1869=13 
:1868=3A 


1879=27 
1878=CD 


:1889=1D 


1888=9F 
1899=79 
1898=*79 
18A9m1D 


・18A8=ED 
・18B9=B5 
・18B8=42 
・18C9=D5 
・ 1 8 し 8=91 
・18D9=C9 
・18D8=9A 
・18E9=13 
・18E8=23 
・18F9=42 
・18F8=BMg 
・1999=95 
・1998=Bg 
・1919=23 
・1918=DE 
・1929=4F 
・1928=42 
・1939=9D 
・1938=4F 
・1949=2B 
・1948=9D 
・1959=99 
・1958=9B 
・1969=1 1 
・1968=1 1 
・1979=73 
・1978=FB 
・1989=909 
・1988=B5 


・1999=F1 . 


1998=B4 


・19A り =DD 


利 
還 


19A6= り 1 


・19B9=03 


19B8=3F 


・1 9C り =E5 


加 
加 


19C8=A3 


・19D9=DD 


19D8=1D 


・1 9E=C1 


加 
加 


19E8=C2 


・19F9=28 


重 
豆 
豆 
豆 
重 
年 
1 
加 
L コ 
重 


19F8=CD 
1A99=1A 
1A98=28 
1A19=C2 
1A18=FE 
1A29=27 
1A28=CD 


・1A39=16 


1A38=82 


・1A49=26 
1A48=45 


4-4 コン パイ ラ 


9F :9C 


の の 〇 〇 の > ゴコロ 〇 の いら コ の ーー の 一 "ロム の 
oo や の O ら ロウ ロー ココ い ぴ の ココ の ON Rh) op 中 


Seoopoo ロ ロワ ワウ ワウ 
の の ウロ ウー の ヴ ピ の の の の 


=] 
に | 


ウ o の の ワウ の 
円 の 凹 


・DF 


科 ん SO 


17C 


1 3 朱 ト 4 9 “ 


・1A59=94 
・1A58=F7 
・1A69=69 
・1A68=92 
・1A79=26 
・1A78=ED 
・1A89=7E 
・1A88=CB 


:1A99=99 9 


・1A98=DD 
・1AA9=56 
・1AA8=4E 
・1 AB= 4E 
・1AB8=38 
・1AC9=B4 
・1AC8=1 4 
・1AD9=B4 


・1AD8=FB : 


・]1 AE9=22 
・1AE8=22 
:1AF9=CB 
:1AF8=C8 
・1B99=ED 


:1B98=42 ! 


・1B19=FB 
・1B18=B2 
・1B29=96 
・1B28=28 
・ 1B39= 1C 
・1B38=C@g 
・1B49=43 
・1B48=CD 
・1B59=CF 
:1B58=28 
・1B69=2A 
:1B68=1F 
・1B79=43 
・1B78=75 
・1B89=32 
・1B88=28 
・1B99=E 1 
・1B98=2A 
・1BA9=3C 
・1BA8=7E 
・1BB9=C3 
:1BB8=27 
・1BC9=E 1 
・1BC8=38 
・1BD9=1B 
・1BD8=2B 
・ 1 BE9=22 
・]1 BE8= 1 4 
・1BF9=55 
・1BF8=CD 
・1C99=CD 
・1C98=1C 
・1C19=B4 
・1C18=F9 
・1C29=2B 
・1C26= ト FE 
・1C39=FE 
・1C38=FE 
: 1C49=FF 
・1C48=32 
・1C59=C9 
・1C58=46 
・1C69=CD 
・1C68=FB 


・1C79=1C 9 


・1C78=28 





1A :4C 


1B : 
1C : 


1 AA 
1B 


22 : 
DD : 


21 


12 < 
99 : 
97  ] 
9 : 
2E : 
5B : 
B4 : 
和 


SS 
E1 


SS 


まま 
り 9 : 


D8 


し じみ : 
党 ま 
CD : 
14 : 
CU : 
29 : 
1 : 
し 3 
(しき 
CD : 
3D : 
94 : 
し < 
9E : 
13 ・ 
2B : 
14 : 
EC : 
人 
1 3 
F2 : 
F2 < 
CU : 
DB4 : 
し 8 
268 ・ 
96 : 
9F ・* 
2A : 
39 : 
F9 : 


C8 


9C : 
7 ・: 
F6 : 


32 
28 
39 
79 
9 り D 
D8 


19 6 
DD :* 
56 : 
FB * 
は な 


・C4 


31 
・3/ 
・92 
・45 
・ 4F 
・8E 
・CE 
・ し 4 


・1C89=EB 
・1C88=D8 
・1C99=CD 
・ 1 し 98=99 
・1CA9=39 
・1CA8=93 
・1CB9=9E 
: 1CB8=9D 
・1CC9=22 
・1CC8=FB 
・1CD9=CD 
・1CD8=28 
・1CE9=CD 
・1CE8=FB 
・1CF9=CB 
・1CF8=CB 
・1D99=28 
・1D98=096 
:1D19=19 
・1D18=28 
・1D29=13 
・1D28=CD 
・1D39=F 1 
:1D38=9D 
:1D49=28 
・1D48=AF 
・1D59=B4 
・1D58=28 
・1D60=73 
:1D68=29 
・1D79=CA 
・1D78=1C 
・1D89=CD 
・1D88=28 
・1D99=CD 
・1D98=47 
・1DA9=FB 
・1DA8=99 
・1DB9=14 
・1DB8=C9 
・1DC9=28 
・1DC8=CD 
・IDD9= 1 4 
・1DD8=909 
・1DE9= 9E 
・1DE8=9D 
・1DF9=Cd 
・1DF8=CD 
・1E じ 99=90 
・1E08=C9 
・1E19=17 
・]E18=32 
・1E20=41 
・1E28=1E 
・1E39=78 
・1E38=22 
・1E49=28 
・1E48=B6 
・1E59=D2 
・1E58=67 
・1E69=CD 
・1E68=BE 
・1E70=22 
・1E78=1E 
・1E89=4D 
・1E88=6F 
・1E99=29 
・1E98=73 
・1EA9=1A 
・1EA8=AE 


CD :F1 
25 :BF 
9 :8B 
3A :46 
28 :AB 
CD :9E 
FE :3C 
D8 :11 
46 :7C し 





・1EBW=CA 
:・1EB8=20 
・1EC9=3A 
・1EC8=1 4 
・1ED9=35 
・1ED8=BS 
・1EE9=66 
・1EE8=1 1 
・1EF9=02 
・1EF8=23 
・1F99=28 
・1F98=3C 
・1F19=28 
・1F18=SF 
・1F29=E1 
・1F28=1B 
・1F39=1B 
・1F38=78 
・1F49=93 
・1F48=FF 


・1F59=1F 


・1F58=B9 
・1F69=9E 
・1F68=3F 
・1F79=28 
・1F78=38 
・1F89=78 
・1F88=/9 
・1F99=B/ 
・1F98=99 
:1FA9=9D 
:1FA8=20 
・1FB9=9D 
・1FB8=3F 
・1FC9=209 
・1FC8=29 
・1FD9=6C 
:1FD8=73 
・1FE9=29 
:1FE8=29 


:1FF9=6E 


・1FF8=72 
・2099=7/5 
:2998=79 
・29109=6E 
・2918=6C 
・2929=65 


・2928=69 | 


・2939=/9 
・2938=6B 
・2949=65 
・2948=63 
・2959=1 1 
・2958=90 
・2969=FA 
:2968=9E 
・2979=9 ビ 
・2978=Ad 
・2989=06 
・2988=20 
・2999=23 
・298=2 1 
・29A9=B7 
・29A8=38 
・20B09=268 
・29gB8=20 
:29C9=CD 
・29C8=27 
・29D9=FC 
:29D8=18 


1 」] 
重 


・29E9=DD 
・29E8=32 
・29F9=38 
・29F8=4F 
・219 り =B4 
・2198=C8 
・2119=CB 
・2118=21 
・2129=CD 
・2128=91 
・2139=CD 
2138=1F 
・2149=59 
・2148=DD 
・2159=B5 
・2158=91 
・2169=E9 
・2168=109 
・2179=4A 
・2178=E3 
・2189=F4 
・2188=91 
・2199=22 
・2198=14 
・21A9=W1 
・21A8=22 
・21B9=CD 
・21B8=5E 
・21C9=CD 
・21C8=76 
・21D9=09 1 
・21D8=B4 
・21E9 り =2A 
・21E8=2D 
・21F9=DD 
・21P8=CB 
・2299=5F 
・2298=CD 
・2219=BC 
・2218=CD 
・2229=22 
・2228=17 
・2239=97 
・2238=3 
・2249=CD 
・2248=59 
・2259=63 
・2258=09E 
・2269=CD 
・2268=99 
・2279=9D 
・2278=C9 
・2289=96 
・2288=B6 
・2299= ド A 
・2298=23 
・22A9=18 
・22A8=FB 
・22B9=CM 
・22B8=99 
・22C9=EC 
・22C8=1 4 
・22D9=CD 
・22D8=94 
・22E9=48 
・22E8=FB 
・22F9=B4 
・22F8=6C 
・2399=4E 
・2398=92 


り 1 
FA 
FE 
8/ 
18 
94 
5E 
り F 


さ 2 
90 
91 
DA 
9 1 
DD 
29 
38 
CB 
さ 8 
SA 
CD 
CD 
FB 
3D 
22 
FB 
とみ 
BE 


| 29 


7M 
20 
2A 
FB 
7 
D8 
55 
りり 
2B 


DD 


26 
79 
26 
26 
CD 
1 4 
99 
37 
CD 


「 人 吉 


79 
B7 
B4 


B7 


B7 
CA 
り 7 
4F 
AM 
4B 
B4 
DS 


26 
りう 
4F 
B4 
C3 


_ 63 


3F 
CD 


18 
7 記 
3 
80 
DD 
CD 
BC 
DD 
91 
PA 
EC し 
う 2 
2D 
3A 


) 91 


CD 
CD 
ゃ 】 
DD 
CD 
2B 
29 
BMW 
2Z 
FB 
E9 
じ 4 
4A 
E6 
18 
2A 
FB 
49 
2A 
CB 
7 


D1 
り 1 
3 ト 
CD 
CD 
2A 
26 
4E 
り 3 
2A 
り 0 
り 4 
CD 
CD 
3A 
42 
C8 


91 
90 
DD 
FB 
CD 
B@ 
1C 
CB 
1 4 
99 
B7 
27 
20 
CD 
2B 


BS 
23 
A7 
87 
CB 
き は 


CB 
2D 
1 1 


FA 」 


B/ 
CD 
B4 
ド じ し 
只 邊 
12 
29 
すっ 
BS 
C9 
2A 
1 4 
34 
2A 
2 1 
DD 
2E 
DD 
AB 
2 
ど ・ 
FB 
B4 
9 1 
う A 
B4 
2B 
ひだ 
り 0 
9B 
BA 
り 9E 
CD 
28 
20 
1/ 
CD 
28 
FC 
87 
B7 
EB 
47 
4F 
CD 
ED 
CB 
2A 
79 
E1 
2A 
り 1 
し 3 
ED 
ED 
ら 2 
28 
り F 
1 1 
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DG 
FE 
DG 
8 1 
り 1 
29 


り 1 
B7 
AM 


ド A 
FS 
PA 
DD 
29 
22 
り A 
93 
28 
DD 
B4 
22 
FB 
49 
38 
CB 
38 
CB 
DD 
FB 
3D 
Cd 
1 4 
F6 
B6 
14 
E 1 
29 
1 1 
りり 
94 
り 9 
AJ 
1 C 
EE 


FB : 
9D 2 


21 
2/ 
22 
FA 
C9 
dA 
99 
E2 
43 
0 
B4 
22 


E1 
66 
1C 
43 
42 
65 
S9 
2D 
25 


17Z 


1 7/G 


・2319=CD 
・2318=2D 
・232 り =B5 
・2328=65 
: 233 り =20 
・2338=409 
・2349=93 
・2348=93 
・2359=FE 
・2358=FE 
・2369=23 
・2358=909 
・237 け =1A 
・2378=23 
・2389=40 
・2388=4D 
・2399=90 
・2398=3D 
・23A9=20 
・23A8=22 
・23B=A2 
・23B8=C9 
・23 じ 9=23 
・23 じ 8=EB 
・23D = 2 
・23D8=7C 
・23E9=2 1 
・23 ビ 8=3 ピ 
・23F9=CD 
・23F8=BM 
・24909=E 1 
・2498=F8 
・2419 り =C9 
・>418=79 
・2429=56 
・2428=26 
・2439=ED 
・2438=FD 
・2449=B6 
・2448=1 4 
・2459=CD 
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ここ こっ Pa ee い " 
m テ キー スト の コン リート 年 

『 双 1-DUAD』 は ディ スク ・ ベ ー ス の アセ ンプ ブラ な の で , 『 マ 
シン 語 プ ログ ラミ ング 入門 」 に 掲載 され て いる エディ タ ・ ア セ 
ン ブ ラ に 比べ て 開発 効率 が 向上 し ます 。 

そこ で ,。 この アセ ンプ ラ か ら 『" 区 1-DUAD』」 へ テキ スト を コ 
ン バ ー ト する 方 法 で す が , これ は 特に 難し いと ころ は あり ま 
せん 。 と いう の は ,。 エディ タ ・ ア セン プラ は テキ スト を 単純 
に バイ ナリ 形式 で セー ブ プ し て いる だ け で あり ,『X1-DUAD」 
は BASIC と 同じ ファ イル 構造 で ある か ら で す 。 そ の た だ ため, テ 
キス ト は モニ タ の 上 L コ マン ド か LOADM 命令 で 読み 込み 。 あ 
と は シー ケン シャ ル ・ フ ァイル と し て ディ スク に 書き 込め ば 
よい こと に な り ま す 。 ま た 。『XX1-DUAD」 は 。 テキ スト を 中 
間 コ ー ド 形式 で 持っ て いま す が , アス キー 形式 の ロー ド , セ 
ー ブ も 可能 で す 。 コ ン バ ー ト は 以下 の 手順 で 行っ て くだ さい 。 
① リ スト ルー 1 あお アセ シッ プル し て 。 オプ ジェ クト を ディ スク 
に ファ イル 名 "text loader と し て セー プ ブ 。 
の ② の コン バート し た い テ キス ト が 入っ て いる テー プ を セッ ト し 
て , リス ト A 一 2 の プロ グラ ム を 実行 する 。 
③『X1-DUAD』 を 起動 し て , LOADA 命 令 で ロー ド す る 。 





APPENDIX 


] 8 
2 ・ ニニ ニー "teXt 1OadeT ' =-ー ニ ーー 
3 * 
4 9941 1oad 1 GU 9941H 
5 9944 10ad2 GU 9944H 
5 1321 fmPThl equU 1321H 
7 DEC C 加 LtCO 還 eqU DECH 
8 142F PTintp equ 1 42FH 
9 94A3 C ず ズ メ EdU 94A3H 
19 1 
11 1472 filOut eqU 1472H 
12 CM Start 症 "eqU り 9C じ 9 日 
13 C912 ] en1 GU StaYt 着 + 12H 
14 3Fg1 fTeGe eqU 9FFB9H-9C999H+ 1 
15 
16 BFW9g OT9 9BF99H 
記 』 1 
18 BEF99 AF Start:  XOr a 
19 BFg1 327214 1d (filout),a , Output deVviCe 1i1S diSsplay 
2 P 
21 BF94 2199C9 1d hl , Start 
22 BF97 12999 1d bC , 29H 
23 BEFg@A CD41909 Cal 1 1oad 1 ・ load FCB 
24 BFgD 3822 Jr C。 GrYOY 1 > IOad OK ? 
25 BFF 114FBF 1d de, 1 加 eS 
26 BEF12 CD2113 Cal1 { PTh1 ? PYinmt file ame 
27 BE15 ED4B12CW 1d bcC, (len1 ) ャ bc := data length 
28 BF19 EB EX de,hl ? SaVve hl to de 
29 BE1A 21913F 1d hl ,free 
3 BFP1D B/ OF a 
31 BEF1E ED42 sbC hl , bc : if hl < bc then ' tOO 1On9 
32 BF2g 3814 3 C, erTTOT2 
33 BF22 ED4399BF 1d ( 1 ength ) , bC 
34 1 
35 BF26 EB GX de,hl ? 1Oad hl frO 着 de 
36 BF27 CD4499 Ca1l 1 1oad2 
37 BF2A 389F | C,ETYOY3 : 1]Oad body 
38 
39 BEF2C 1157BF 1d de,OKmeS 
4 BEF2F 1812 JY PY 1nt2 
4 1 5 
42 BF31 115FBF errorl: 1d de, emeS 1 
43 BF34 1898 間 衣 Print 
44 BF36 116EBF erTTOY2: 1d de, eeS2 
45 BEP39 1893 に JY PT1int 
46 BEF3B 1177BF ETTOTY3: 1qd de, eeS3 
47 1 
48 BF3E 3EFF Print: 1d a.9FFH 
49 BF49 3292BF 1d (status ) ,a 
59 BF43 CDA3W4 print2: Cal1 Cr2 
51 BF46 CD2F14 Ca1 1 RT 1 tp 
52 BEF49 3EBM1 1qd a, 1 ? CaSSett StOp Cmd 
53 BF4B CDEC9D Cal 1 C 胡 も CO 
54 BFP4E C9 ret 
55 6 
56 BFP4F 6C6F6164 1meS: def 面 "1Ooad1 ng9" 
BF53 696E67 
57 BP56 9 defb g 
58 BF57 6C6F6164 OK 基 eS: def 草 "1Oad Ok" 
BF5B 296F6B 
59 BF5E 9 defb 
69 BF5F 46434226 emmeSl: def 息 "FCB 1oad error'" 
BF63 6C6F6164 
BF67 29657272 
BF6B 6F72 
61 BEF6D 99 defb M 
62 BF6E 746F6F29 eme52: defm "も OO 1Ong" 
BF72 6C6F6E67 
63 BF76 99 defb g 
64 BF77 626F6479 eme5s3: def 血 "DOdy 1Oad errOY" 
BF7B 296C6F61 
BF7F 64206572 
BF83 726F72 
65 BF86 9 defb 和 
66 1 
67 BF9M OT9 gBF99H 
68 BF9g 99969 length: defw 胃 
69 BP92 99 Status: defb g 


197 


199 


ーー COIVert 人 texXt frTO 存 editOr asSSsembler toO DUAD-X1 


CLEAR &HBEFF 

LOADM"text loader" 
DEFUSR=&HBF99 

a=USR(9) : PRINT 

1F PEEK(&HBEF92) く >9 THEN END 
1gth=&HBP99 : St=&HC9999 : 1m=1 


1gth=PEEK(1gth)+PEEK( 1gth+ 1 )\256 


PRINT "-- "の ) HEX も (lgth)iP ーー 


INPUT "file mamme ->"ima ゃ も 
OPEN "0" , 昔 1 ,ma$ 
PRINT##1 STR も (1n):i 
WHILE lgth >= 
Ch=sPEEK(St) 
PRINT#1 .CHR$ も (ch) : 
IF ch=&HD THEN lnm=lnm+1 : PRINT#1 STR も (1m) ji" 
St=St+]1 : lgth=lgth-1 
wEND 
CLOSE 





A/ ハイテック ファ イル 


昭和 60 年 8 月 20 日 初版 発行 定価 2.200 円 


著 者 渡辺 英 行 , 高橋 秀樹 

発行 人 。 塚本 慶一 郎 

発行 所 株式 会 社 エ ム ・ ア イ ・ エ ー 
150 東京 都 渋谷 区 渋谷 2-9-1 青山 田中 ビル 
電 話 (03)486-4500 

編集 制作 アス キー 出版 局 第 二 書 籍 編集 部 
二 話 (03)486-4512 


印刷 ・ 製 本 東京 音楽 図書 株 式 会 社 
ISBN4-87170-044-5 C3055 涯 2.200E 


^ プ ログ ラミ ング 入門 | X1 リ ファ レン スノウ ト 


双 1 シ リー ズ で マシ ジン 語 を 学ぶ た め の 入 門 書 。 基 | turbo を 含む X1 シ 仙 ー ズ の すべ て の 機能 を 解説 
礎 か ら 始 め , 1 に 特有 な 機能 の 活用 まで を 詳し く し , 活用 ノウ ハウ を 紹介 し た テク ニカ ル 資 料 集 。 
解説 し て いる 。 予備 知識 に 習 悪 する より も 実践 的 一 歩 進ん で X 1 と 実 中 的 に 活用 し た いと いう ユー 
に 使い こなす こと を 目標 に し て いる だめ, 一般 に 難 | ザー は 必携 の 書 。 

し いと いわ れる マシ ン 語 を 短期 間 で マス ター で きる 。 


A5 判 定価 2.200n | 還 請 張 請 請 細 請 譜 5 ま 価 2500p 


X1 ソ フト プレ ス _ トラ ンプ ゲ 
凸 つ ちゃ つか ら / 


由緒 正しき 占い に , パソ コン カル チャ ー の スパ イ | アク ショ ン ゲ ー ム か ら 思 考 ゲ ー ム まで トラ ンプ の 
ス だ っ 3 ぷり 。 天 中 条 ,。 易 、。 お みく じ な ど で 目 分 を 各 分 野 か らら ピックアップ し た ゲー ム は 8 種類 。 マ 
取り 巻く 偶然 を 楽し ん だ あと は , まじ め な ホロ ス | シン 語 に よる 高速 美衣 カー ド 表 示 ル ー チ ン が ゲー 
コー プ で 自分 の 星 の 運 勢 を ズバ リ 当 て ちゃ う の ム の 興奮 を 盛り 上 げ る 。 ゲーム 自作 派 に も オス ス 
re 村 


A5 判 定価 1.200m | し 。 。 還 陸 。 。 。 A5 判 定価 1.200m 





田 お 求め は 最寄り の マイ コン ・ シ ョ ッ プ , 書店 。 ま た は 郵送 料 を 
添え て 下記 へ お 申し 込み くだ さい 。 


150 東京 都 渋 谷 区 渋谷 2-9-1 青山 田中 ビル TEL.03(486)4500O⑯ 
内 エム ・ ア イ ・ エ ー 


GRAPHIC, SOUND,COAPILER 


X] ハイ テッ ク フ ァ イル 
Another 
Remarkable 
Work 


ForXLXIIurboUSers 














MI AA 


ISBN4-87170-044-5 C3055 \2e00E 定価 2.200 円 


